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.