Предмет: Информатика,
автор: danieradcliff
В основной программе запросить у пользователя ввод 4 чисел, при помощи процедуры перемножить первое и третье число и передать ответ основной программе для вывода на экран. Сложить вторую и четвертую переменную при помощи функции. Вывести результат на экран.
Ответы
Автор ответа:
1
Procedure multiply(x, y:Integer; var res:Integer);
Begin
res := x * y;
end;
Function add(x, y:Integer): Integer;
Begin
add := x + y;
end;
var
a, b, c, d, res1, res2:Integer;
Begin
Read(a, b, c, d);
multiply(a, c, res1);
res2 := add(b, d);
Writeln(res1);
Writeln(res2);
end.
Begin
res := x * y;
end;
Function add(x, y:Integer): Integer;
Begin
add := x + y;
end;
var
a, b, c, d, res1, res2:Integer;
Begin
Read(a, b, c, d);
multiply(a, c, res1);
res2 := add(b, d);
Writeln(res1);
Writeln(res2);
end.
Автор ответа:
0
===== PascalABC.NET =====
procedure Перемножить(a, b: real; var res: real) := res := a * b;
function Сложить(a, b: real) := a + b;
begin
var n1, n2, n3, n4, r: real;
Read(n1, n2, n3, n4);
Перемножить(n1, n2, r);
Print('Произведение', r, ' сумма', Сложить(n2, n4))
end.
Приложения:

Похожие вопросы
Предмет: Математика,
автор: nikaivashk4563
Предмет: Математика,
автор: bananatop34
Предмет: Физика,
автор: valentinahapin39
Предмет: География,
автор: milasha0609
Предмет: Право,
автор: Совушка228451