Даны натуральное число n и последовательность целых чисел а1, а2,…,аn. найти кол-во чисел ai (i=1,) являющихся полными квадратами
nikita06556
2
04.03.2019 04:10
5
Другие вопросы по теме Информатика
Bigdaddypro100
14.09.2019 09:10
Даниюша3223
14.09.2019 09:10
kristinamilobog
14.09.2019 09:10
Lolkekcheburek228322
18.02.2021 15:21
timurtim1
12.12.2021 18:39
Bab4enock
02.10.2021 11:07
SweetCandy23228
02.10.2021 10:55
aliya111000
28.04.2021 18:49
lenayun
28.04.2021 18:49
An0441
28.04.2021 18:49
Популярные вопросы
- 20 прочитай предложение.установи. нужно ли на месте вопроса употребить...
2 - Люди ! от следующих глаголов образуйте страдательные причастия...
1 - Написать сочинение каким я вижу герасима из му-му большое...
1 - Чему равен момент силы f относительно оси вращения рычага, проходящий...
2 - Вмагазин 223 литра масла в бидонах по 10 литров и 17 литров.сколько...
2 - Сходства различия в строении клетки бактерий растений и животных...
3 - Известно, что в классе от 25 до 35 учеников.им раэдали поровну...
1 - Значение слова кошка . проверочное слово к слову метель. проверочное...
1 - Назовите пословицы, фразеологизмы, устойчивые сочетания или поговорки...
2 - Какие общие грамматические признаки в словах - успенский и матроскин?...
3
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.