Question

Помогите . что не делал тупо постоянній повтор и нечево больше. Паскаль . Цикл while. Обчислити сумму чисел от заданного числа до 150. Число ввести с консоли. Если Введение число> 150, вивести СООБЩЕНИЕ об ошибках, если <150, обчислити сумму, если = 150 - вивести 150

Answer 1

Program n_1;

var x, y, i:integer;

begin

   readln(x);

   if (x<=150) then begin

       y:=0; i:=150;

       while (i>=x) do begin y:=y+i; i:=i-1; end;

       writeln (y);

   end

   else writeln ('Ошибка')

end.

Answer 2

Конечно, помогу! Для решения данной задачи на языке Паскаль с использованием цикла while, вам нужно считать число с консоли, затем проверить условие и выполнить соответствующие действия. Вот пример кода:

pascalCopy code
program SumTo150;

var
  num, sum, currentNum: integer;

begin
  writeln('Введите число:');
  readln(num);

  if num > 150 then
    writeln('Ошибка: Введенное число больше 150')
  else if num = 150 then
    writeln('Сумма чисел равна 150')
  else
  begin
    sum := 0;
    currentNum := num;
    while currentNum <= 150 do
    begin
      sum := sum + currentNum;
      currentNum := currentNum + 1;
    end;
    writeln('Сумма чисел от ', num, ' до 150 равна ', sum);
  end;
end.

В этом коде мы используем переменные num для ввода числа с консоли, sum для хранения суммы чисел и currentNum для отслеживания текущего числа внутри цикла.

Затем мы проверяем несколько условий с помощью операторов if и else. Если число больше 150, выводим сообщение об ошибке. Если число равно 150, выводим сообщение о сумме. Если число меньше 150, то выполняем цикл while, который складывает числа от введенного значения до 150 и выводит результат.

Пример:

Copy code
Введите число:
10
Сумма чисел от 10 до 150 равна 11335

makefileCopy code
Введите число:
200
Ошибка: Введенное число больше 150

Copy code
Введите число:
150
Сумма чисел равна 150