Составьте программу ввода с клавиатуры элементов массива a[1 ... 10] и вывода на экран элементов значения которых являются квадратами целых чисел

Question

Информатика

Галюха

17 октября, 16:49

Составьте программу ввода с клавиатуры элементов массива a[1 ... 10] и вывода на экран элементов значения которых являются квадратами целых чисел

+3

Ответы (1)

Знаете ответ?

Харлампий · Answer 1

Var ar:array[1 ... 10] of real;

i:integer;

begin;

for i:=1 to 10 do

readln (ar[i]) ;

writeln ('OK:') ;

for i:=1 to 10 do

if frac (sqrt (ar[i])) = 0 then writeln (ar[i]) ;

end.