Question

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

Answer 1

Program gt;
var a:real;
b:integer;
begin
readln(a);
b:=trunc(a)*trunc(a);
writeln(b);
end.