Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dupper2356
01.06.2023 13:29 •
Информатика
Вивести на екран 3 задані цілі числа в порядку зростання в паскалі.
Показать ответ
Ответ:
apologise
01.10.2020 12:59
Program chisla;
Var a:array[1..3] of integer;
i,j,x,v:integer;
begin
for v:=1 to 3 do
readln(a[v]);
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for v:=1 to 3 do
write(a[v],',');
writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tetysheva09
11.11.2020 15:21
Из-за того, что один из углов комнаты - круглый , ковролин обрезают по форме скругления. Определите площадь остатков ковролина, получившихся в результате скругления. ответ...
moyutot
29.05.2023 16:49
Информатика задание 4 и 5 у меня сбой в программе...
13081990
23.05.2022 07:41
Составьте программу которая определяет является ли число делителем 3 на языке python...
ЛевкоЛюдмила
04.05.2020 22:23
Аллгорим на 15 пунктов как получить 5 по языку?...
enotowi4enot
27.09.2020 14:24
Нарисовать вишню в паскале ...
yrarissikhin
22.08.2022 20:45
нужно решить с пояснением...
Katysha1111111
22.08.2022 20:45
Какие есть опреснения природных вод?...
msckayla
12.01.2022 03:14
Если на производство продукции постоянные издержки составили 5000 рублей, переменные – 9000 рублей, то общие затраты фирмы: а) АТС = 14000 рублей; б) ТС = 14000 рублей;...
jordan15
16.11.2022 17:10
Подсчитайте числа, если их сумма равна 10, а произведение равно 21....
Kolodey200453
18.04.2020 16:09
Определи последовательность этапов развития растения из семени: 1. , 2. , 3. , 4. , 5. . Плоды могут образоваться у растений отдела: Голосеменные Покрытосеменные Хвощи...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a:array[1..3] of integer;
i,j,x,v:integer;
begin
for v:=1 to 3 do
readln(a[v]);
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for v:=1 to 3 do
write(a[v],',');
writeln;
end.