Составим программу обмена местами двух чисел 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=?
в=?
ответ: После выполнения программы с=22, d=8, a=22,в=8