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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array [1..10] of longint; i:integer; x:real; begin for i:=1 to 10 do readln(a[i]); writeln('================================================'); for i:=1 to 10 do begin x:=sqrt(a[i]); if sqr(x)=a[i] then write (a[i],' '); end; readln; end.