Сколько раз будет выполнен цикл и что будет выведено на печать? var k , i : integer; . . k : = 0 ; for i : = -10 to -9 do k : =i ; write(k) ;

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5

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.