Question

Решить в Паскале с помощью операторов while и repeat
1) Вывести на экран все четные числа из диапазона от A до В, кратные трём (А<=В)
2) Вывести на экран все двузначные числа в которых старшая цифра отличается от младшей не больше, чем на 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.


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

Answer 2

да и проверь синтаксис давно на паскаль не писал