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

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

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

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

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

   readln;
end.