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

Решение задачи 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.

Поделиться:
Вам также может понравится
Округление чисел в Python
Обмен значений двух переменных
Перевод чисел в Python
Снегопад из снежинок на Python с помощью Черепашки

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