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;