Даны натуральное число n и последовательность целых чисел а 1, а 2,… , аn. Найти…

Question

71

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

mitscari · Accepted Answer

51

mitscari

10 сентября 2022

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: