Пожаловаться
- 05.09.2018 08:07
- Информатика
- remove_red_eye 17290
- thumb_up 42
Ответы и объяснения 1
Вот так как то, если неправильно, напишите в комментах
program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
else
if a>c then writeln (b,c,a)
else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
if b>c then writeln (a,c,b)
else write(a,b,c)
end;
end.
program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
else
if a>c then writeln (b,c,a)
else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
if b>c then writeln (a,c,b)
else write(a,b,c)
end;
end.
Пожаловаться
- 06.09.2018 23:50
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы