Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon вычеслить все нечетные числа в промежутке…

вычеслить все нечетные числа в промежутке от А до В , А>В вычеслить с помощью цикла while и repeat - вопрос №1669202

сергей
18.10.15
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Рейтинг: 53 181
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.10.15
Лучший ответ по мнению автора

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее