Контрольная работа: Использование программирования в математике

write(g,s[i]);

end;

writeln(g,'');

end

else

writeln(g,'');

end;

close(f);

close(g);

readln

end.

Результат работы:

Входной файл

Выходной файл