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

Primary tabs

gani84's picture
Submitted by gani84 on Tue, 07/10/2018 - 10:12

Forums:

Задача №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.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 7013 reads
vedro-compota's picture

vedro-compota

Sat, 07/21/2018 - 23:14

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

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

gani84's picture

gani84

Sun, 07/22/2018 - 10:09 

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

vedro-compota

Tue, 09/25/2018 - 20:24

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

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