Учеба и наука

• Всего ответов: 1


Виталий
2-й в Технологиях
4.9 119 отзывов
program prog;

var
  a: Integer;
  b: Integer;
  c: Integer;
  i: Integer;

begin
 
  a := 200;  {стартовое число}
  b := 100;  {конечное число}
  c := 0; {счетчик нечетных}
  i := a; {счетчик цикла}
 
  while i >= b do  { пока i >= b идем по циклу }
  begin
    if (i mod 2) <> 0 then begin { нашли нечетное? запишем его }
      writeln('найдено нечетное ', i);
      c += 1;
    end;
    i -= 1;  { продвигаемся назад на следующее число }
    
  end;
 
  writeln('Всего нечетных: ', c);
 
end.
октябрь 19, 2015 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы