Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
linda281
25.04.2021 04:16 •
Информатика
По pascal №1 найти все двузначные числа, такие, что сумма цифр равна a, а само число делится на b. a и b вводятся с клавиатуры. №2 найти сумму всех чисел из промежутка от a до b, кратных 5. a и b вводятся с клавиатуры.
Ответ:
dubay080p0drxr
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 оценок)
Популярные вопросы: Информатика
M10041999
27.01.2020 19:01
Составить программу вывода на экран таблицы умножения на 6...
Verra990
27.01.2020 19:01
Составить программу вычисления количества трёхзначных чисел которые не кратны 5 с while...
madamnowiczkai
15.05.2021 00:42
Укажите параметры и связи для модели треугольник...
мангл63
30.10.2020 09:42
я не знаю как, поменял на теле цветовкю гамму что-ли, я не понимаю как поставить обратно...
igubaevak
10.01.2020 04:28
каким должно быть расстояние между монитором и гоазами 50-60 см у меня времч идет это сор...
хахаха41
03.01.2021 01:06
Девочки Айым, Мээрим и Вика купили себе флешки синего, белого и красного цветов. На вопрос, у кого из них какая флешка, одна из девочек ответила: У Айыма-флешка синяя, у Мээрим-не...
napolskai24
13.02.2023 05:24
Используя оператор While, составь программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 грамм до 1 килограмма с шагом 100 грамм. Ниже представлен рекомендуемый...
nikitakirillov3
09.01.2020 02:23
На книжной полке стоят два тома: первый и второй. Они стоят обычным слева — первый, справа - второй, корешками к нам. Толщина первого тома - 8 см без обложки, толщина второго...
катерина424
29.10.2020 07:02
Записати в зошит режими роботи в середовищі редактора презентацій. До ть...
Hkolnik32
03.06.2023 22:56
Процесс выполнения операторов присваивания::=4;:=142;:=∗При выполнении оператора :=4 в ячейку оперативной памяти компьютера с именем заносится значение ()при выполнении оператора...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.