Решение задачи №3 из главы 10

Задача №3 из главы 10

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному циклу.

var a,i:integer; //объявляем переменную счетчика
begin
  writeln('vvedite chislo');
  readln(a);
  if (a > 100) then //
      for i:=a downto 1 do  // i пройдёт значения от i до 'a'
          write(i, ' ')//выводим в одну строку через пробел
  else
     for i:=1 to a do
     write(i, ' ');

  readln(); // удерживаем консоль

end. 
vedro-compota's picture

форматирование неверное. Исправляйте. Без форматирования проверять не будем.

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

gani84's picture

var a,i:integer; //объявляем переменную счетчика
begin

  writeln('vvedite chislo');
  readln(a);
  if (a > 100) then //задаем условие
   for i:=a downto 1 do  // i пройдёт значения от i до 'a'
     write(i, ' ')//выводим в одну строку через пробел
  else
   for i:=1 to a do
     write(i, ' ');
  readln(); // удерживаем консоль

end.
vedro-compota's picture

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

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