Задание 4 Параграф 22 ГДЗ Семакин 8 класс (Информатика)

Задача

program task_1;
var
a, b, c, min: integer;
begin
writeln(‘Введи три числа через пробел’);
readln(a, b, c);
min := a;
if b < min then min := b; if c < min then min := c; writeln('min=', min) end. program task_2; var a, b, c, min: integer; begin writeln('Введи три числа через пробел'); readln(a, b, c); if b < a then min := b else min := a; if c < min then min := c; writeln('min=', min) end. program task_3; var a, b, c, min: integer; begin writeln('Введи три числа через пробел'); readln(a, b, c); if (b < a) and (b < c) then min := b else if (a < b) and (a < c) then min := a else min := c; writeln('min=', min) end.

Подробный ответ

Ниже приведены три варианта программы на Паскале для нахождения наименьшего из трёх чисел.

program task_1;
var
  a, b, c, min: integer;
begin
  writeln(‘Введи три числа через пробел’);
  readln(a, b, c);
  min := a;
  if b < min then min := b;
  if c < min then min := c;
  writeln(‘min=’, min)
end.

program task_2;
var
  a, b, c, min: integer;
begin
  writeln(‘Введи три числа через пробел’);
  readln(a, b, c);
  if b < a then min := b else min := a;
  if c < min then min := c;
  writeln(‘min=’, min)
end.

program task_3;
var
  a, b, c, min: integer;
begin
  writeln(‘Введи три числа через пробел’);
  readln(a, b, c);
  if (b < a) and (b < c) then min := b
  else if (a < b) and (a < c) then min := a
  else min := c;
  writeln(‘min=’, min)
end.