Решить в Паскале с помощью операторов while и repeat

1) Вывести на экран все четные числа из диапазона от A до В, кратные трём (А<=В)

2) Вывести на экран все двузначные числа в которых старшая цифра отличается от младшей не больше, чем на 1

Question

Информатика

Ларион

31 января, 19:21

Решить в Паскале с помощью операторов while и repeat

1) Вывести на экран все четные числа из диапазона от A до В, кратные трём (А<=В)

2) Вывести на экран все двузначные числа в которых старшая цифра отличается от младшей не больше, чем на 1

+1

Ответы (1)

Знаете ответ на вопрос?

Алексей · Answer 1

1. read (a) ;

read (b) ;

while (a<=b)

begin;

if ((a mod 2 = 0) and (a mod 3 = 0)) or ((b mod 2=0) and (b mod 3 = 0)) then

begin;

write (a)

else

if (b mod 2=0) and (b mod 4=0) then

write (b)

else

end;

readkey;

end.

второе прости могу только на си