Как в паскале найти все числа от 1 до 100, являющиеся полными квадратами?

Question

Георгий Горелов

Информатика

19 июля, 19:53

Как в паскале найти все числа от 1 до 100, являющиеся полными квадратами?

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Петси · Answer 1

var a:array[1 ... 100] of integer;

i:integer;

begin

for i:=1 to 100 do a[i]:=i;

writeln ('числа, являющиеся полными квадратами:'); for i:=1 to 100

do

if trunc (sqrt (a[i])) * trunc (sqrt (a[i])) = a[i]

then writeln (a[i]);

end.