Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
AmitJK
16.04.2020 06:29 •
Информатика
По pascal №1 найти все двузначные числа, такие, что сумма цифр равна a, а само число делится на b. a и b вводятся с клавиатуры. №2 найти сумму всех чисел из промежутка от a до b, кратных 5. a и b вводятся с клавиатуры.
Показать ответ
Ответ:
Superniolay
19.06.2020 22:48
1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
svetasan76
18.12.2021 08:44
с по информатике: 1) видеопамять имеет объём, в котором может храниться 16-цветное изображение размером 800x600 точек. какого размера изображение можно хранить в том же объёме видеопамяти,...
Медина00
17.05.2021 11:31
Нужно составить формулу для excel в диапазоне. само условие звучит так: если f4 в диапазоне цен [40 000р; 60 000р] скидка 5%, если f4 в диапазоне цен (60 000р; 80 000р] скидка 10%,...
roxolanavarLana
07.02.2020 21:53
Для какого из значений числа x ложно высказывание: не (x 6) или (x 5)? 1) 7 2) 6 3) 5 4) 4 можно подробно объяснить...
forsovae
10.08.2021 00:09
Подскажите , как называется программа по информатике, которая проходит 4 декабря помню только, что в конце коеце, было написана, там еще 3 мужчины были в видео,...
dfhdfhf20022004
10.08.2021 00:09
Які команди варто подати для завантаження існуючого файлу книги excel (*.xls)? а) пкм по імені файла; б) файл / открыть в) ім я файла / кн. enter; г) кнопка пуск / документи / лкм...
moxowa81
13.10.2022 08:29
Скорость передачи данных по некоторому каналу связи равна 52 кбит/с. передача файла по этому каналу связи заняла 4 мин. определите размер файла в мегабайтах....
vladaleonova
03.04.2023 04:32
Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25...
Kso57
30.04.2023 09:04
Как с дизассемблера-отладчика(тексторый редактор)написать небольшой отчёт на тему: Модель чёрного ящика ...
pandatka4ewa
09.07.2020 05:08
угол cbe 135 градусов из вершины d проведен луч DB градусное мера угла BDE РАВНА 86 ГРАДУСОВ НАЙДИТЕ ГРАДУСНУЕ МЕРУ УГЛА COВ...
rekrut234
13.05.2021 12:50
1) Укажите соответствующий вывод для каждого неравенства. Обоснуйте свой ответ ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.