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

Question

Информатика

Анна

14 августа, 15:08

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

+1

Ответы (1)

Знаете ответ на вопрос?

Даня · Answer 1

program test;

var number: real; temp: integer;

begin

write ('Enter the number: ') ;

readln (number) ;

temp:=trunc (number) ;

writeln (temp, '^2=', temp*temp) ;

readln;

end.