Составить программу обмена значениями трех переменных величин: a, b, c. на языке Pascal

Question

Информатика

Витюля

23 апреля, 20:13

Составить программу обмена значениями трех переменных величин: a, b, c. на языке Pascal

+5

Ответы (1)

Знаете ответ на вопрос?

Фотий · Answer 1

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.