Приветствую Вас, Гость! Регистрация RSS

<Uzh.Soft/>

Воскресенье, 19.05.2024
Главная » 2012 » Декабрь » 26 » Вывести все нечётные числа из отрезка [A,B]. Pascal
02:46
Вывести все нечётные числа из отрезка [A,B]. Pascal
  1. var A,B,i: integer;
  2.  
  3. begin
  4.   write('Введите два целых числа, разделяя их пробелом: ');
  5.  
  6.   readln(A, B);
  7.  
  8.   for i:=A to B do
  9.     if i mod 2 <> 0 then
  10.       writeln(i);
  11. end.
Категория: Простые примеры | Просмотров: 1762 | Добавил: is | Теги: Паскаль, проверка чётности, чётные числа, нечётные | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: