Question

пользователь вводит целое от 0 до 200 число. Если оно больше 100, то выведите на экран все числа от этого число до 1, иначе же все числа от этого числа. Создайте программу, отладьте ее на компьютере (Pascal)

Answer 1

var a: integer;

begin

 readln(a);

 while(a < 0) or (a > 200) do begin

   readln(a)

   end;

 if(a > 100) then

   begin

     while (a > 0) do begin

       writeln(a);

       a := a -1

     end;

   end

 else begin

   while (a <= 200) do begin

     writeln(a);

     a := a + 1

   end;

 end;

end.

Answer 2

Для создания программы на языке Pascal, которая реализует указанное поведение, следуйте инструкциям ниже:

1. Откройте среду разработки Pascal (например, Free Pascal) и создайте новый проект.

2. Вставьте следующий код программы:

pascalCopy code
program NumberSequence;

var
  userInput, start, endValue, stepValue: Integer;

begin
  WriteLn('Введите целое число от 0 до 200:');
  ReadLn(userInput);

  if (userInput > 100) then
  begin
    start := userInput;
    endValue := 1;
    stepValue := -1;
  end
  else
  begin
    start := userInput;
    endValue := 200;
    stepValue := 1;
  end;

  WriteLn('Последовательность чисел:');

  while start <> endValue do
  begin
    Write(start, ' ');
    start := start + stepValue;
  end;
  WriteLn(endValue); // Выводим последнее число

end.

3. Сохраните файл с расширением .pas (например, NumberSequence.pas).

4. Запустите компиляцию и выполнение программы в среде разработки. После этого, введите целое число от 0 до 200 и нажмите Enter.

Программа выведет числа в соответствии с указанным условием. Если введенное число больше 100, она выведет числа от введенного числа до 1 (включительно), иначе - от введенного числа до 200 (включительно).

Обратите внимание, что данная программа предполагает, что пользователь будет вводить целые числа от 0 до 200, и не содержит проверок на ошибочный ввод. В реальных приложениях стоит предусмотреть обработку некорректных данных.