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

Дано вещественное число.напишите программу,которая возводит в квадрат целую часть данного числа и выводит на экран монитора результат.

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

Var
a: real;
k: integer;
begin
readln(a);
k:=sqr(trunc(a));
writeln(k);
end.