Question

Помогите решить на языке програмирования PASCAL ABC. Напишите программу, которая запрашивает у пользователя числа и находит их сумму. Признаком окончания ввода является число 10. Вход 5 6 2 10 8 Выход 13 (это сумма чисел 5, 6, 2. 10 – это конец цикла). Заранее благодарю

Answer 1

var

ch,sum:LongInt;

begin

ReadLn(ch);

sum:=0;

while (ch>10) or (ch<10) do

begin

inc(sum, ch);

ReadLn(ch);

end ;

WriteLn(sum);

end.

Answer 2

Конечно, вот пример программы на языке Pascal ABC, которая выполняет указанную вами задачу:

pascalCopy code
program SumOfNumbers;

var
  num, sum: integer;

begin
  sum := 0;
  writeln('Введите числа. Введите 10 для завершения.');

  repeat
    readln(num);
    if num <> 10 then
      sum := sum + num;
  until num = 10;

  writeln('Сумма введенных чисел: ', sum);
end.

Эта программа начинает с инициализации переменной sum (для хранения суммы чисел) нулем. Затем она входит в цикл repeat, который будет выполняться до тех пор, пока пользователь не введет число 10. Внутри цикла программа считывает числа, добавляет их к sum, если они не равны 10. Как только введено число 10, цикл завершается, и программа выводит сумму всех введенных чисел, кроме 10.

Вы можете скопировать этот код и выполнить его в среде Pascal ABC.