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

Primary tabs

Submitted by alexander263 on Thu, 08/19/2021 - 21:07

Forums:

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

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

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

vedro-compota

Thu, 08/19/2021 - 21:26 

  if ((i>=35) and (i<=117) and (i mod 2=0)) then

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

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

alexander263

Thu, 08/19/2021 - 21:45 

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