Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dashavr1
21.03.2023 08:46 •
Информатика
Написать программу в паскале: получить в убывающем порядке все двузначные числа, в десятичной записи которых нет цифры 5.
Показать ответ
Ответ:
iphoneXY
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 оценок)
Ответ:
agentboy
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 оценок)
Популярные вопросы: Информатика
ник230903
26.10.2022 01:40
За яким алгоритмом створюють складні проекти ? Чому доцільно розбити складну задачу на підзадачі під час складання алгоритму її розв язання ? У якому випадку припиняють розбиття...
studentsuka
07.10.2020 09:17
Как создать модель в SketchUp?...
maninigorek
17.04.2021 16:02
Как представлено число 124 10 в двоичной системе счисления?...
fdfggdjfikytktjjkykl
12.04.2023 13:19
Как называется документ, который содержит официальные взгляды и цели государства в сфере информационной безопасности Составьте слово из букв: ИТОКРАДН...
giunel041
06.01.2021 04:29
Вову не остановить! Стоит ему написать последнюю циферку в числе, как он загорается новой идеей! Например, узнать чему равна сумма цифр числа. Правда, иногда Вова ошибается, поэтому...
Muffs
27.11.2021 10:44
В ячейке электронной таблицы К7 записана формула =H7/G$7. Какая формула получится из нее при копировании в ячейку К10? 1) =H10/G$10 2) =H10/G10 3) =H10/G$7 4) =$H$10/G10...
serguhovaannagmail
20.12.2022 15:45
напишите программу, которая генерирует массив из 15 элементов, который заполнен случайным образом целыми числами от -15 до 15, и находит сумму всех чисел массива, которые кратны...
sasha123123476
01.08.2021 22:54
Какое из чисел немножко быть записано в системе счисления с основанием 7 А)1035 б)6104 в)6708 г...
IVANICH31
20.04.2022 15:40
25 сотрудников (магазин), 7 рабочих мест (кассы с терминальным доступом), 7 принтеров, 10 планшетов для консультантов в торговом зале, беспроводная сеть для сотрудников. 1 сервер...
blackfantom
30.03.2023 00:14
Что будет выведено на экран после выполнения операторов: n := 15; k := 1 / 2; n := SQR(15)*k; k := n + k; Writeln ( n = , n:8:2); Writeln ( k = , k:9:3);...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.