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

Question

Информатика

Варвара

11 июля, 12:26

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

+4

Ответы (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.