Приведённая ниже программа вводит с клавиатуры три целых числа, вычисляет два
Приведённая ниже программа вводит с клавиатуры три целых числа, вычисляет два числа малое из их и произведение этих чисел. На экран выводится сумма последних цифр всех 5 чисел (по одной заключительней цифре от каждого числа).
Опишите использованные в программке процедуры.
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.
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 gt; b then
d := b
else
if d gt; 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;
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.