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.

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;