Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Бізнесмен22
30.05.2020 13:22 •
Информатика
Написать программу в паскале: получить в убывающем порядке все двузначные числа, в десятичной записи которых нет цифры 5.
Показать ответ
Ответ:
ilya20063
27.09.2020 11:29
Var
i: integer;
begin
for i := 99 downto 10 do
if (i mod 10 <> 5) and (i div 10 <> 5) then
write(i, ' ');
end.
0,0
(0 оценок)
Ответ:
matveysandors
27.09.2020 11:29
Program dig_2_no5_downto;
var
i,a,b: integer;
begin
i := 99;
while i >= 10 do
begin
a := i div 10;
b := i mod 10;
if (a <> 5) and (b <> 5) then
write(i, ' ');
i := i - 1;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анoнuм
05.04.2020 06:08
На информационной ленте машины поста на расстоянии в n клеток друг от друга расположены две помеченные метками клетки. начальное положение каретки - под левой из помеченных...
korablevabella
18.03.2022 20:56
что делать если ноутбук виндовс 10 включил, а он высвечивает какие-то бело-желтые надписи?Пишет вот это, сдесь сразу с переводом...
Алибабо
04.04.2021 04:23
Какие компьютеры работают под mac os? ...
misterbango
06.09.2020 07:46
Excel: совместная работа с word. 1.записать путь сортировки данных таблицы от старых к новым. 2.чтобы отформатировать диаграмму, 3.чтобы выполнить быстрое заполнение таблицы,...
Ооооооокккккккк
15.06.2022 03:47
Как убрать задержки на bluetooth наушниках...
Zumman
18.08.2020 09:34
Дан одномерный массив на 30 элементов, заполненный случайными числами от -100 до 100. требуется определить и вывести значение и номер максимального элемента. если таких элементов...
kovalenko7659
02.07.2022 00:52
Определите код программы на c++...
meloo1
28.08.2021 09:11
Сколько цифр «5» в шестеричной записи числа?...
Misha45456
09.11.2022 07:37
За сколько секунд можно передать текст объёмом 1800 байтов, если скорость канала связи равна 14400 бит/с?...
vasilyeva08079oz7ptx
04.12.2021 04:12
нужно составить по этой схеме описание картинки 1 Алдар косе и 2 Ну погоди (схема и картинки во вкладке)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i: integer;
begin
for i := 99 downto 10 do
if (i mod 10 <> 5) and (i div 10 <> 5) then
write(i, ' ');
end.
var
i,a,b: integer;
begin
i := 99;
while i >= 10 do
begin
a := i div 10;
b := i mod 10;
if (a <> 5) and (b <> 5) then
write(i, ' ');
i := i - 1;
end;
end.