Язык Pascal
Составьте программу сортировки по возрастанию значений трех переменных A, B, C

1

Ответы и объяснения

2013-12-05T21:30:03+04:00
Var
A, B, C, p: integer;
begin
write('A, B, C: ');
readln(A, B, C);
if A > B then   
begin   
p:=A; A:=B; B:=p;   
end;
if B > C then   
begin   
p:=B; B:=C; C:=P;   
end;
writeln(A:3, B:3, C:3);
readln;
end.
Проверил. вбил 3 2 1, он должен был расположить как 1 2 3, но выдал 2 1 3. Код ошибочен.
моя вина =) забыла третью проверку
Var
A, B, C, p: integer;
begin
write('A, B, C: ');
readln(A, B, C);
if A > B then
begin
p:=A; A:=B; B:=p;
end;
if A > B then
begin
p:=A; A:=B; B:=p;
end;
if A > C then
begin
p:=A; A:=C; C:=p;
end;
if B > C then
begin
p:=B; B:=C; C:=p;
end;
writeln(A:3, B:3, C:3);
readln;
end.
теперь правильно