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

так уж и быть, напишу на Pascalе

 

var

a: real;

begin

read(a);

a:=Trunc(a); {отбрасывание дробной части}

a:=a*a;

writeln(a);

end.

 

P.S В следующий раз пиши на чём писать программу(а то я обычно пишу на таком языке, которого не знает автор задачи).

Оцени ответ

Загрузить картинку