Решить в Паскале с помощью операторов while и repeat 1) Вывести ** экран все четные числа...

Question

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

Answer 1

1. read(a);
      read (b);
         while (a<=b)<br>            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.


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

Comments

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