Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат которого не превосходит число 225.

Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода и не входит в последовательность).

Программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.

Question

Информатика

Раду

4 сентября, 13:30

Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат которого не превосходит число 225.

Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода и не входит в последовательность).

Программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.

+5

Ответы (1)

Знаете ответ на вопрос?

Мисаэл · Answer 1

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.