дано вещественное число. напишите программу , каторая возводит в ...

Motes

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

 

var

a: real;

begin

read(a);

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

a:=a*a;

writeln(a);

end.

 

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