Ответ:
var n, i, k, a: integer;
begin readln(n); k := 0; for i := 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k := k + 1; end; writeln(k);end.
Даны натуральное число n и последовательность целых чисел а1, а2,…,аn. Найти кол-во чисел ai (i=1,2…n) являющихся полными квадратами — Правильный ответ на вопрос найдете ниже
11.04.2019 · 1