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

1

Ответы и объяснения

2014-01-20T23:58:33+04:00
Program gt;
var a:real;
b:integer;
begin
readln(a);
b:=trunc(a)*trunc(a);
writeln(b);
end.