Задание:
1. Написать программу для определения количества двузначных чисел в диапазоне от А до B, которые при делении на 6 дают остаток 2. 2. Найти суммудвузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
Решение:
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.
Знаете другой ответ?