Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить программу на языке Паскаль. Дана сторона квадрата. Найти его площадь

Ответ оставил Гость

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.