Ответы
Ответ дал:
0
Var
A,B,C,D:integer;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
Write('c = ');Read(c);
d:=a;
a:=b;
b:=c;
c:=d;
WriteLn;
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('c = ',c);
End.
A,B,C,D:integer;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
Write('c = ');Read(c);
d:=a;
a:=b;
b:=c;
c:=d;
WriteLn;
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('c = ',c);
End.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад