составьте программу. ведите дробное число в промежутке от 10 до 25. возведите его в квадрат. округлите результат. и найдите его цифры ( число окажется трёхзначным).

1

Ответы и объяснения

2013-01-12T11:24:15+00:00

var
a:real;
b:word;
begin
readln(a);
b:=round(sqr(a));
writeln(b);
writeln('Цифры:',b div 100,',',b div 10 mod 10,',',b mod 10);

end.