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

1

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

2013-01-27T13:28:37+00:00

program test;
var number: real; temp: integer;
begin
   write('Enter the number: ');
   readln(number);

   temp:=trunc(number);
   writeln(temp, '^2=', temp*temp);

   readln;
end.