Дано вещественное число. Напишите программу, которая возводит в квадрат целую часть данного числа и выводит на экран монитора результат.
Ответы на вопрос
Ответил kage1998
0
program gt;
var a:real;
b:integer;
begin
readln(a);
b:=trunc(a)*trunc(a);
writeln(b);
end.
var a:real;
b:integer;
begin
readln(a);
b:=trunc(a)*trunc(a);
writeln(b);
end.
Новые вопросы