Приведённая ниже программа вводит с клавиатуры три целых числа, вычисляет два числа –...

Question

Приведённая ниже программа вводит с клавиатуры три целых числа, вычисляет два числа – минимальное из них и произведение этих чисел. На экран выводится сумма последних цифр всех пяти чисел (по одной последней цифре от каждого числа). Опишите использованные в программе процедуры. Var a, b, c, d, f, z: integer; begin vvod(a, b, c); min(a, b, c, d); f := a * b * c; z := 0; sum(a, z); sum(b, z); sum(c, z); sum(d, z); sum(f, z); writeLn(z) end.

Comments

ABC паскаль

---

в паскале нет такой команды vvod

---

нужно написать процедуру которая будет так называться

---

процедура в смысле read что ли?

---

в смысле procedure

---

Так подожди, тебе нужно написать эти процедуры? Или сказать, что они делают?

---

написать процедеру

---

Улыбок тебе дед макар

---

Пират я знаю кто ты я за тобой приду пс 1580 кс го

Answer 1

procedure vvod(var a, b, c: integer);

begin

   readln(a);

   readln(b);

   readln(c);

end;

procedure min(const a, b, c: longint; var d: longint);

var

   i: longint;

begin

   d := a;

   if d > b then

       d := b

   else

   if d > c then  

       d := c;

end;

procedure sum(const ch:longint;var z:longint);

begin

z := z + ch;

end;

var

   a, b, c, d, f, z: integer;