Задание:
Составьте программу ввода с клавиатуры элементов массива а [1… 10] и вывода на экран элементов, значения которых являются квадратами целыхчисел
Решение:
vara: array [1… 10] of longint; i: integer; x: real; beginfor i: =1 to 10 do readln (a[i]); writeln ('='); for i: =1 to 10 do beginx: =sqrt (a[i]); if sqr (x)=a[i] then write (a[i],'); end; readln; end.
Знаете другой ответ?