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

Приведённая ниже программа вводит с клавиатуры три целых числа, вычисляет два числа малое из их и произведение этих чисел. На экран выводится сумма последних цифр всех 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.

Задать свой вопрос
Татренкова Лариса
ABC паскаль
Попова-Бондаренко Ванька
в паскале нет такой команды vvod
Прсвиркин Сережа
необходимо написать функцию которая будет так называться
Карина Завалдаева
процедура в смысле read что ли?
Ленька Жолнин
в смысле procedure
Легошин Данил
Так подожди, для тебя нужно написать эти процедуры? Или сказать, что они делают?
Галина Болевская
написать процедеру
Егор Растяпин
Усмешек тебе дед макар
Алина Кодемаскина
Пират я знаю кто ты я за тобой приду пс 1580 кс го
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 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;


, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт