Презентация на тему по информатике на тему ЗАДАНИЯ С РЕШЕНИЕМ ДЛЯ ЗАКРЕПЛЕНИЯ ТЕМЫ “ПРОЦЕДУРЫ” В PASCAL.

b и c в порядке возрастания, используя процедуру swap.

var a,b,c:integer;
Procedure swap (x,y:integer; m:integer);
begin
m:=x;
x:=y;
y:=m;
end;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if a>b then swap (a,b);
if a>c then swap (a,c);
if b>c then swap (b,c);
writeln (a,b,c);
end.

print_sum(a,b);
writeln ('sum=');
end.
Задача 2 Написать процедуру нахождения сумму двух

* b;
end;
var
x,y: real;
p: real;
begin

Задача 3 Написать процедуру нахождения произведения двух чисел.