Урок 11 Задача 3

Primary tabs

Submitted by kuznmax on Sun, 04/17/2022 - 13:34

Forums:

Урок 11 Задача 3

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

Решение:

var r:integer;
begin
  r := 35;
  while r <= 117 do
  begin
    r:=r + 1;
    if (r mod 3) = 0 then
      writeln(r, ' ');
  end;
  readln();
end.
  • Log in to post comments
  • 446 reads

kuznmax

Tue, 04/19/2022 - 19:50 

var r:integer;
begin
  r := 35;
  while r <= 117 do
  begin
    if (r mod 3) = 0 then
      writeln(r, ' ');
   r:=r + 1;
  end;
  readln();
end.