37

1. Написать программу для определения количества двузначных чисел…

dan29017 12 апреля 2023

1. Написать программу для определения количества двузначных чисел в диапазоне от А до B, которые при делении на 6 дают остаток 2. 2. Найти суммудвузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.

категория: информатика

35

1) var a,b,x: integer; beginwrite ('A: '); readln (a); write ('B: '); readln (b); for x: =a to b dobeginif (x>=10) and (x <= 99) thenif x mod 6=2 thenwrite (x,'); end; end.2) var a,b,x,s: integer; beginwrite ('A: '); readln (a); write ('B: '); readln (b); for x: =a to b doif (x=21) or (x=42) or (x=63) or (x=84) then s: =s+x; write (s); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...