Составим программу обмена местами двух чисел c=4,d=15.

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.
Проанализируй и выбери верные ответы:

Sasha11111222    3   20.04.2020 12:48    48