Предмет: Информатика,
автор: Комарова5
Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел.
Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .
Количество чисел не привышает 1000. Введеные числа не привышают 30000.
Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.
Пример работы программы:
Входные данные Выходные данные
15 17
20
17
0
Ответы
Автор ответа:
0
var x,y:integer;
BEGIN
repeat
readln(x);
If (x mod 2>0) then
begin
if x>y then y:=x
end;
until x=0;
writeln(y)
END.
BEGIN
repeat
readln(x);
If (x mod 2>0) then
begin
if x>y then y:=x
end;
until x=0;
writeln(y)
END.
Похожие вопросы
Предмет: Алгебра,
автор: sarafun261007
Предмет: Другие предметы,
автор: tomilovaulana0
Предмет: Русский язык,
автор: kimfriderika
Предмет: Алгебра,
автор: Pashok57
Предмет: Алгебра,
автор: misha2236