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

Question

Информатика

Ена

1 мая, 23:51

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

+2

Ответы (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.