Урок10.1 задача 6

Primary tabs

Submitted by nglag on Thu, 07/01/2021 - 16:06

Forums:

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

Решение:

program U101Z6;

var i: integer;

begin
   for i:= 35 to 117 do
   if (i mod 3) =0 then
   write(i, ' ');
   writeln();
   for i:= 45 to 99 do
   if (i mod 2)<>0 then
   write(i, ' ');
   readln();
end.
  • Log in to post comments
  • 3595 reads
vedro-compota's picture

vedro-compota

Thu, 07/01/2021 - 20:33

отформаруйте

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

nglag

Sun, 07/11/2021 - 13:03 

program U101Z6;

var i: integer;

begin
   for i:= 35 to 117 do
       if (i mod 3) =0 then
           write(i, ' ');

   writeln();

   for i:= 45 to 99 do
       if (i mod 2)<>0 then
           write(i, ' ');
   readln();
end.
vedro-compota's picture

vedro-compota

Sun, 07/11/2021 - 13:25

решение верное. добавить решение одним циклом

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

nglag

Sun, 07/11/2021 - 17:06

Выведите на экран, все числа делящие на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

program project1;

var i: integer;
      //Одним циклом
begin
   for i:= 35 to 117 do
       if (i>= 35) AND ((i mod 3) =0) then
           write(i, ' ')
   else
       If (i >= 45) AND (i <= 99)
          AND((i mod 2)<>0) then
           write(i, ' ');
   readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:34

неверное форматирование

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

nglag

Fri, 07/16/2021 - 11:34 

program project1;

var i: integer;
      //Одним циклом
begin
   for i:= 35 to 117 do
       if (i>= 35) AND ((i mod 3) =0) then
           write(i, ' ')
       else
           If (i >= 45) AND (i <= 99)
               AND((i mod 2)<>0) then
               write(i, ' ');
   readln();
end.
vedro-compota's picture

vedro-compota

Sun, 07/18/2021 - 11:36 

if (i>= 35) AND ((i mod 3) =0)

есть лишнее условие

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

nglag

Thu, 07/22/2021 - 11:15 

program U10z6;

var i: integer;
      //Одним циклом
begin
   for i:= 35 to 117 do
     if (i mod 3) =0 then
       write(i, ' ')
     else If (i >= 45) AND (i <= 99)
             AND((i mod 2)<>0) then
             write(i, ' ');
   readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/22/2021 - 20:17

решение засчитано

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