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

Primary tabs

Submitted by nglag on Thu, 07/15/2021 - 16:18

Forums:

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

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

Решение

program U11z3;

  var i: integer;

begin
  i:=35;
  while(i>= 35) and (i<= 117) do
  begin
     i:=i + 1;
         if((i mod 2) = 0) and ((i mod 3) = 0) then
             write(i, ' ');
  end;
  readln();
end.
  • Log in to post comments
  • 2803 reads
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 20:29

проверить соответствие условию и форматирование

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

nglag

Thu, 07/22/2021 - 11:07 

program U11Z3;

var i: integer;

begin
  i:=35;
  while(i>= 35) and (i<= 117) do
  begin
    i:=i + 1;
      if((i mod 2) <> 0) and ((i mod 3) = 0) then
        write(i, ' ');
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/22/2021 - 20:18

решение засчитано (форматирование неверное)

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

nglag

Fri, 07/23/2021 - 11:17 

program U11Z3;
 
var i: integer;
 
begin
  i:=35;
  while(i>= 35) and (i<= 117) do
  begin
    i:=i + 1;
    if((i mod 2) <> 0) and ((i mod 3) = 0) then
        write(i, ' ');
  end;
  readln();
end.