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

Цикл For

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

var i,a:integer;
begin
  writeln('write your num');
  read(a);
  if (a >= 100) then
     for i:=a downto 1 do
         write(i, ' ')
     else
        for i:=1 to a do
           write(i, ' ');
   readln();       readln();
end.  
vedro-compota's picture

if (a >= 100) then

неточное выполнение условия задачи

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

var i,a:integer;
begin
  writeln('write your num');
  read(a);
  if (a > 100) then
    for i:=a downto 1 do
      write(i, ' ')
    else
      for i:= 1 to a do
        write(i, ' ');
  readln();  readln();
end.
vedro-compota's picture

неверное форматирование

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