Найти минимальное четное число последовательности

@YaDimkoo · Регистрация: 12.09.2012

Author24 — интернет-сервис помощи студентам

1. С клавиатуры вводится последовательность целых чисел. Признак окончания ввода – число, заканчивающееся нулем. Найти минимальное четное число последовательности.

Комментарий модератора

YaDimkoo, размещайте каждую задачу в отдельной теме!
Давайте темам осмысленные названия. Соблюдайте правила оформления тем.

@TheSN · 27.09.2012, 18:14

Pascal

var
  a, min: integer;
 
begin
  min := 30000;
  repeat
    readln(a);
    if (a < min) and (a mod 2 = 0) and (a<>0) then min := a
  until a = 0;
  writeln(min);
end.

	27.09.2012, 18:14

Опции темы

Найти минимальное четное число последовательности

Решение