Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Света1234567880
12.03.2022 03:41 •
Информатика
Создайте программу, которая запрашивает значения 5 переменных и организует циклический обмен. a1< -a2,a2< -a3..a5< -a1. пример: 1 2 3 4 5. после обмена: 2 3 4 5 1
Показать ответ
Ответ:
nlogvinova14
06.10.2020 03:47
Var
a1,a2,a3,a4,a5,B:real;
Begin
Write('Введите пять чисел: ');
ReadLn(a1,a2,a3,a4,a5);
B:=a1;
a1:=a2;
a2:=a3;
a3:=a4;
a4:=a5;
a5:=B;
WriteLn(a1,' ',a2,' ',a3,' ',a4,' ',a5);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vadim12045683777779
20.03.2020 08:27
Процесс переноса информации на носитель (6 букв, 3 н, 5 с)...
saitovdamir20Damit
20.03.2020 08:27
1. процесс нахождения информации(5 букв, 2 о) 2. процесс переноса информации от источника к приемнику (8 букв, 2 е, 6 а) 3....
SL87
30.03.2021 23:08
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 2 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число...
Boss008Mta
04.06.2022 15:01
Что в нутри какашек ??? расскажите плз...
aigul245
13.01.2021 17:25
Рассчитать объём памяти, необходимой для представления одноминутного фильма на экране монитора с разрешением 600*600 пикселей и палитрой из 256 цветов. *...
ivan445
15.08.2022 14:21
На листе написано слово кодом 186122118191033 запишите это слово на языке, используя ключ- буквы алфавита заменены на их порядковые номера...
Mimi1602
15.08.2022 14:21
Заполни пустые ячейки таблицы. слово значение слова понятие слово термин...
zar26
01.10.2021 03:25
Количество информационных сообщений 128. определите объём информации, содержащейся в одном сообщении в битах...
akrasnoplakhtyc
01.10.2021 03:25
Мощность некоторого алфавита 32 символа.каким будет объём в битах в тексте,состоящем из 200 символов?...
Gowaimargowa123
01.10.2021 03:25
А)информация понятна , если она - б) сообщение может пополнить знания человека ,если- !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a1,a2,a3,a4,a5,B:real;
Begin
Write('Введите пять чисел: ');
ReadLn(a1,a2,a3,a4,a5);
B:=a1;
a1:=a2;
a2:=a3;
a3:=a4;
a4:=a5;
a5:=B;
WriteLn(a1,' ',a2,' ',a3,' ',a4,' ',a5);
End.