Var a:integer; x:real; (переменная a - это сторона квадрата; x - площадь) begin assign(input,'input.txt');reset(input); assign(output,'output.txt');rewrite(output); read(a); (читаем входной файл) x:=sqr(a); (находим площадь квадрата, т.е. возводим сторону в квадрат) write(x:0:0); (выводим целый ответ) close(input);close(output); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
