Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат которого не превосходит число 225. программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода и не входит в последовательность). программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.

Murad11111111 Murad11111111    2   24.09.2019 21:50    0

Ответы
AlexxP AlexxP  08.10.2020 16:42

var

  count, x : integer;

begin

  count := 0;

  repeat

    read (x);

     if (x mod 4=0) and (x mod 10=4) then inc (count);

  until x  = 0;

  writeln (count);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика