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

Question

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

Answer 1

35

gnava

25 февраля 2023

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.

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: