Вопрос по информатике:
Даны три целых числа A,B и C.Записать числа в порядке убывания
Плз помогите в Паскале
Пожаловаться
- 12.05.2018 07:16
- Информатика
- remove_red_eye 15653
- thumb_up 33
Ответы и объяснения 1
Program n1;
procedure Sort(var A, B, C: integer);
var
t: integer;
begin
if A < B then begin
t := B;
B := A;
A := t
end;
if A < C then begin
t := C;
C := A;
A := t
end;
if B < C then begin
t := C;
C := B;
B := t
end
end;
var
A, B, C: integer;
begin
writeln('Введите три числа: ');
readln(A, B, C);
Sort(A, B, C);
writeln('Числа по убыванию: ', A, ' ', B, ' ', C)
end.
procedure Sort(var A, B, C: integer);
var
t: integer;
begin
if A < B then begin
t := B;
B := A;
A := t
end;
if A < C then begin
t := C;
C := A;
A := t
end;
if B < C then begin
t := C;
C := B;
B := t
end
end;
var
A, B, C: integer;
begin
writeln('Введите три числа: ');
readln(A, B, C);
Sort(A, B, C);
writeln('Числа по убыванию: ', A, ' ', B, ' ', C)
end.
Пожаловаться
- 13.05.2018 04:18
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы