tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Напишите программу перестановки
Напишите программу перестановки значений переменных в порядке возрастания. Используйте процедуру swap
linashilova00
1 17.04.2019 06:30
8
Ответы
000конфета000
17.04.2019 06:30
program z5;
procedure swap (var x,y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
var a, b, c: integer;
BEGIN
Writeln('Введите значения a, b, c');
Readln(a, b, c);
if a>b then swap (a, b);
if a>c then swap (a, c);
if b>c then swap (b, c);
writeln (a, ' ', b, ' ', c);
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
kurakin99
17.04.2019 02:30
Публичный сервитут устанавливается в интересах отдельных собственников, владельцев и пользователей земельных участков...
teenwolf18
17.04.2019 02:30
В соответствии с реформой 1861г. крестьяне получили землю в собственность в постоянное пользование безвозмездно...
StasMe1337
17.04.2019 02:30
Не подлежат государственной регистрации договоры аренды и субаренды земельных участков заключенные на срок до пяти лет...
khana3
17.04.2019 02:30
В издержки производства и обращения включаются суммы на частичное погашение стоимости объекта основных средств – _ отчисления...
alfiyagalina
17.04.2019 02:30
Земельные участки могут быть приобретены в собственность иностранных граждан, лиц без гражданства и иностранных...
kiggiydduii
17.04.2019 02:30
Опубликование результатов опросов общественного мнения, связанных с выборами запрещается публиковать...
krivonogikhlyuba
17.04.2019 02:30
Землеустройство-это Устройство земельных дамб Мероприятия по повышению плодородия почв...
poeticclown
17.04.2019 02:30
В соответствии с Соборным Уложением 1649г. можно было совершать продажу земли, на которой располагались поместья...
DrozZzD
17.04.2019 02:30
Имеет ли право быть выдвинутым кандидатом в депутаты судья глава муниципального образования, отстраненный от должности перед выборами...
Имра11111
17.04.2019 02:30
В соответствии с Конституцией РФ регулирование земельных отношений отнесено: к ведению РФ...
Популярные вопросы
Оповідання Чехова Товстий і тонкий що хоче нам сказати автор цим оповіданням?...
2
Чим хороктеризуеться кожна величина ? ...
3
1. Что включает в себя ритмическая гимнастика? Выпиши правильные ответы....
3
творческое задание. написать письмо Наставления самому себе , начиная...
3
в сентябре телефон стоил 8500 рублей. В октябре он подорожал на 7%,...
1
Українською номенклатурою. Складіть формули: калій оксиду, сульфур(VI)...
2
3. Суретке қара. Ол қандай фигуралардан құрастырылған? Су- реттегі...
1
Скласти текст ціна здоров я , використовуючи спонукальні речення...
3
Напишіть твір-роздум на тему: «Філософія життя у китайській ліриці,...
1
Сочинение на тему моё любимое животное (кот-зовут барсик...
3
procedure swap (var x,y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
var a, b, c: integer;
BEGIN
Writeln('Введите значения a, b, c');
Readln(a, b, c);
if a>b then swap (a, b);
if a>c then swap (a, c);
if b>c then swap (b, c);
writeln (a, ' ', b, ' ', c);
END.