Question

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

Answer 1

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.