Даны натуральное число n и последовательность - вопрос №8414112 от Angelina111555 25.02.2022 20:35

Question

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

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