Урок 12.1 Задача 4

Primary tabs

Submitted by kuznmax on Sun, 04/24/2022 - 14:30

Forums:

Урок 12.1 Задача 4

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var e, r: integer;
begin
 e := 35;
 r := 117;
 repeat
   if (117 mod 2) = 0 then
     if (117 mod 3 and  6) = 0 then
       writeln(e);

 until (e = r) ;

 readln();
 end.
  • Log in to post comments
  • 1436 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:20

  • 1) Ответить на вопрос: какие числа должны быть выведены на экран (посчитать на бумаге, выписать ряд этих чисел) -- и выписать эти числа сюда в комментарий
  • 2) Проверить что программа выводить их же

_____________
матфак вгу и остальная классика =)

kuznmax

Mon, 05/02/2022 - 13:44

№1
36;42;54;60;66;72;78;84;90;102;108;114

№2

program project124;

var e, r:integer;
begin
  e:=35;
  r:=117;
  repeat
    if ((e mod 2)=0) and
      ((e mod 3)=0) and
      ((e mod 6)=0) then
      write(e,' ');
      e:=e+1;
  until (r<e);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:19

засчитано

_____________
матфак вгу и остальная классика =)