Главная » Напишите программу...значение наименьшего числа...
11:32

Напишите программу...значение наименьшего числа...


Задание:

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

Количество введенных чисел не превышает 1000. Все числа не превышают 30000. Среди введенных чисел есть хотя бы одно четное

Программа должна вывести одно число: наименьшее  из всех четных введенных чисел.

Пример работы программы:

Входные данные: 10, 7, 12, 0.

Выходные данные: 10.

Решение:

Код программы на Паскале (Способ 1):

  1. Program nomer3;
  2. Var a, min: integer;
  3. Begin
  4. Write('Vvedite a: '); readln(a);
  5. Min:=30000;
  6. While a<>0 do
  7.   begin
  8.   if (a mod 2 =0) and (a<min) then min:=a;
  9.   Write('Vvedite a: '); readln(a);
  10.   end;
  11. Writeln(min);
  12. End.

Код программы на Паскале (Способ 2):

  1. Program nomer3;
  2. Var a, min: integer;
  3. Begin
  4. Min:=30000;
  5. Repeat
  6.   Write('Vvedite a: '); readln(a);
  7.   if (a<>0) and (a mod 2 =0) and (a<min) then min:=a
  8. Until a=0;
  9. Writeln(min);
  10. End.

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 139 | Добавил: Ученик | Рейтинг: 5.0/1