Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

    • Автор:

      gaige
    • 7 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years