Предмет: Информатика,
автор: Kruk2000
Поменять значения переменных А,В,С чтобы оказалось А=>В=>С
Ответы
Автор ответа:
0
var a,b,c,d:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if a<b then begin d:=a; a:=b; b:=d; end;
if b<c then begin d:=b; b:=c; c:=d; end;
if a<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 a<b then begin d:=a; a:=b; b:=d; end;
if b<c then begin d:=b; b:=c; c:=d; end;
if a<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
Похожие вопросы
Предмет: История,
автор: NikKud674
Предмет: Математика,
автор: anaraakilzanova5
Предмет: Математика,
автор: Maksim1519
Предмет: Математика,
автор: Fatimaaaa18