Anabelle
Опубликовано 7 лет назад по предмету Информатика от Anabelle


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

  1. Ответ
    Ответ дан sinbad7

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц