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

Primary tabs

Submitted by nglag on Thu, 07/01/2021 - 16:12

Forums:

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

Решение

program U101Z3;

 var a,i, b: integer;

begin
     writeln ('chislo');
     readln(a);

            for i:= a downto 100 do
                if (a>100) then
                   write (i, ' ')
            else
                a:=b;
                for b:= a to 100 do
                 if (a<100) then
                    write (b, ' ');
     readln
end.
  • Log in to post comments
  • 2388 reads
vedro-compota's picture

vedro-compota

Thu, 07/01/2021 - 20:32

1)

readln(a);
 
            for i:= a downto 100 do
                if (a>100) then

-- проверка "больше 100" должна быть до цикла

2)

for b:= a to 100 do

-- от 1 до числа, единица в коде вообещ не фигурирует сейчас.

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

nglag

Sun, 07/11/2021 - 12:41

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

Ссылка на урок:
Решение:

program U10Z3;

var a,i: integer;

begin
     writeln ('Celoe chislo:');
     readln(a);
     if (a>100) then
         for i:= a downto 1 do
             write(i, ' ')
     else
         if (a<=100) then
             for i:= 1 to a do
                 write(i, ' ');

     Readln();
end.
vedro-compota's picture

vedro-compota

Sun, 07/11/2021 - 13:27

в ветке else имеется избыточность в проверках

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

nglag

Sun, 07/11/2021 - 17:09 

program U10Z3;

var a,i: integer;

begin
     writeln ('Celoe chislo:');
     readln(a);
     if (a>100) then
         for i:= a downto 1 do
             write(i, ' ')
     else
         for i:= 1 to a do
                 write(i, ' ');

     Readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:35

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

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