Tanamot
7 год назад
Поменять значения переменных А,В,С чтобы оказалось А = >В = >С
ОТВЕТЫ
Фавий
Jul 14, 2019
Var a,b,c,d:integer;
begin
writeln(a, b, c:);
readln(a,b,c);
if alt;b then begin d:=a; a:=b; b:=d; end;
if blt;c then begin d:=b; b:=c; c:=d; end;
if alt;b then begin d:=a; a:=b; b:=d; end;
writeln(a = ,a, b = ,b, c = ,c);
end.
Пример:
a, b, c:
5 2 8
a = 8 b = 5 c = 2
begin
writeln(a, b, c:);
readln(a,b,c);
if alt;b then begin d:=a; a:=b; b:=d; end;
if blt;c then begin d:=b; b:=c; c:=d; end;
if alt;b then begin d:=a; a:=b; b:=d; end;
writeln(a = ,a, b = ,b, c = ,c);
end.
Пример:
a, b, c:
5 2 8
a = 8 b = 5 c = 2
72
Смежные вопросы:
