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

1. Написать программу для определения количества двузначных чисел в диапазоне от А до B, которые при делении на 6 дают остаток 2. 2. Найти сумму двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
Гость
Ответ(ы) на вопрос:
Гость
1) var a,b,x:integer; begin write('A: '); readln(a); write('B: '); readln(b); for x:=a to b do begin if (x>=10) and (x<=99) then if x mod 6 = 2 then write(x,' '); end; end. 2) var a,b,x,s :integer; begin write('A: '); readln(a); write('B: '); readln(b); for x:=a to b do if (x=21) or (x=42) or (x=63) or (x=84) then s:=s+x; write(s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы