Pascal урок 11 задача 3

Primary tabs

Submitted by Surd on Sat, 10/24/2020 - 11:35

Forums:

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

var i: integer;
begin
  while (i < 117) do
  begin
    i:= i +1;
    if (i > 35) and (( i mod 3) = 0) then
        if (i< 117) then
          writeln(i);
  end;
  readln();
end.
  • Log in to post comments
  • 1845 reads

sergio

Sun, 10/25/2020 - 11:21

можно счетчик сделать I := 35, чтобы впустую не запускать с единицы и оставить одну проверку деления на 3

Surd

Sun, 10/25/2020 - 22:01

Точно) спасибо)

Surd

Sun, 10/25/2020 - 22:13 

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