Напишите программу, которая в последовательности 10-ти натуральных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет, вывести (NO). (Язык программирования - Паскаль)

Question

Информатика

Перди

28 марта, 02:41

Напишите программу, которая в последовательности 10-ти натуральных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет, вывести (NO). (Язык программирования - Паскаль)

+2

Ответы (2)

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

Немир · Answer 1

Program primer;

var

n, i, max, z:integer;

begin

max:=0;

for i:=1 to 10 do begin

read (n) ;

if (n mod 10 = 4) then begin

inc (z) ;

if (max
end;

end;

if (z>0) then writeln (max)

else writeln ('NO') ;

end.

Маха · Answer 2

Program primer; var, n, i, max, z:integer; begin max:=0; for i:=1 to 10 do begin read (n) ; if (n mod 10 = 4) then begin inc (z) ; if (max0) then writeln (max) else writeln ('NO') ; end.