Составим программу обмена местами двух чисел c=8,d=22. program obmenDan;
var c,d:integer;
procedure obmen ( a,b:integer);
var m:integer;
begin
m:=a; a:=b; b:=m;
writeln(a,b);
end;
begin
writeln ('Введите 2 числа: ');
readln(c,d);
obmen(c,d);
writeln(c,' ',d);
end.
Проанализируй и выбери верные ответы.
с=8 d=22 а=8 в=22
После выполнения программы:
с=?
d=?
a=?
в=?
После выполнения программы будет следующее:
с = 8
d = 22
a = 8
в = 22
Правда сам код у вас не очень хороший