Блог учителя Информатики

Решение задачи ExamBegin3


Условие задачи:

На вход подаются четыре целых числа; каждое число вводится с новой строки. Вывести минимальное из них.


uses PT4Exam;

var
  i, a, min: integer;

begin
  Task('ExamBegin3');
  min := 32768;
  for i := 1 to 4 do
  begin
    Read(a);
    if a < min then min := a;
  end;
  Write(min);
end.

Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий