Question

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

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

Answer 1

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.