Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Ошлиарлт
19.06.2021 01:51 •
Информатика
For3. даны два целых числа а и в (а
Ответ:
artik12042003
02.10.2020 10:41
Var a, b: integer;
begin
write('Введите a, b>>');
read(a, b);
if a<b then
begin
while (b-1>a) do
begin
b:=b-1;
write (b, ' ');
end;
end
else write('Неверные условия')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tsoikin77
16.04.2020 06:52
Дан фрагмент программы a: =18; b: =0; c: =a*b; write(a,b,c) какие числа будут выведены на экран...
Ann1122331
23.12.2021 14:25
Постройте таблицу истинности a ∧ ¬ c ∨ c ∧ (b ∨ ¬ c) ∨ (a ∨ ¬ b) ∧ c . заранее !...
Денис228ннпп
31.10.2022 10:34
Как можно переставить буквы в слове кара чтобы получилось другое слово? ( не убирая ни одну из букв)...
anyBeef
28.07.2022 01:28
Сколько гигабайт в терабайте? а то в информатике не разбираюсь...
nastya84398
28.07.2022 01:28
Какое минимальное основание может иметь системы счисления,если в ней записаны: 432,16,501...
кор17
29.01.2021 23:04
Перед тобой простой рисунок. Поработай вычислительной машиной и закодируй указанный элемент рисунка. Закодируй 7 строчку....
круголс
12.02.2021 23:25
Кесте не үшін қолданылады?...
trofimovigor07
03.11.2020 19:45
Нужно Сдать решение задачи 1-Автобусные остановки Полный : 100 Ограничение времени: 500 мс Ограничение памяти: 512M Ограничение размера стека: 64M Задача 1: Автобусные остановки...
danilcapitan
24.05.2020 19:34
. Запиши три вредныхвоздействия компьютера на человека....
Volkova13
19.04.2020 16:14
На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и эклеры. Круассанов A штук, а эклеров — B штук. Есть неограниченный запас подарочных коробок, в каждую...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
write('Введите a, b>>');
read(a, b);
if a<b then
begin
while (b-1>a) do
begin
b:=b-1;
write (b, ' ');
end;
end
else write('Неверные условия')
end.