Question

Работа с файлами. Взять из файла “1.txt” целое число и поместить в файл “11.txt” значение этого числа в степени 5.
помогите пж очень надо
напишите код программы на паскале ​

Answer 1

Вот код для данной задачи, но если файлов "1.txt" и "11.txt" не существует или файлы и программа находятся не в одной папке, то программа выведет ошибку.

program na;

var a: Text; c:string; b:real;

begin

assign(a,'C:1.txt');

reset(a);

read(a,c);

close(a);

assign(a,'C:11.txt');

rewrite(a);

b:=StrToInt(c)**5;

write(a,b);

close(a)

end.