2015-12-28 14:25:15 +03:00
|
|
|
// Параметры процедур
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
procedure Operations(a,b: integer);
|
|
|
|
|
begin
|
|
|
|
|
writeln(a,' + ',b,' = ',a+b);
|
|
|
|
|
writeln(a,' - ',b,' = ',a-b);
|
|
|
|
|
writeln(a,' * ',b,' = ',a*b);
|
|
|
|
|
writeln(a,' / ',b,' = ',a/b);
|
|
|
|
|
writeln(a,' div ',b,' = ',a div b);
|
|
|
|
|
writeln(a,' mod ',b,' = ',a mod b);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
Operations(5,3);
|
|
|
|
|
writeln;
|
|
|
|
|
Operations(7,4);
|
|
|
|
|
end.
|
