Задача 5 Урок 10

Primary tabs

Submitted by jl8qy9kd_pro on Wed, 07/21/2021 - 17:00

Forums:

http://fkn.ktu10.com/?q=node/8612

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

// 2 цикла
var i: integer;
begin
  for i := 35 to 117 do
     if((i mod 2) = 0) then
     write(i, ' ') ;
  writeln();
  writeln();
  for i := 45 to 99 do
     if((i mod 2) <> 0) then
     write(i, ' ') ;
  readln();
end. 
// 1 цикл
var i: integer;
begin
  for i := 35 to 117 do
  begin
     if((i mod 2) = 0 ) then
       begin
       write(i, '  ')
       end;
     if(((i mod 2) <> 0) and (i >= 45) and (i <= 99) )then
       write(i, '  ') ;
  end;
  readln();
end.
  • Log in to post comments
  • 2453 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:31

Подождем решения: http://fkn.ktu10.com/?q=node/12517
(похожая тема с оптимальностью)

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

jl8qy9kd_pro

Mon, 07/26/2021 - 19:21 

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

vedro-compota

Tue, 07/27/2021 - 19:20

есть лишнее логическое подвыражение

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

jl8qy9kd_pro

Wed, 07/28/2021 - 12:04 

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

vedro-compota

Sun, 08/01/2021 - 12:55

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

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