Даны натуральное число n и последовательность - вопрос №8323912 от Пони0с0радушкой 09.09.2021 22:53

Question

Информатика: Даны натуральное число n и последовательность целых чисел а1, а2,…,аn. найти кол-во чисел ai (i=1,) являющихся полными квадратами

Пони0с0радушкой · Answer

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....