Question

Напишите пожалуйста программу в pascal,которая запрашивает у пользователя числа и считает их сумму до тех пор пока пользователь не введёт число 44.После того программа должна прекратить запрашивать числа и вывести пользователю сумму.

Answer 1

Var
   a,b:integer;
Begin
  writeln('Не вводите 44');
  while b<>44 do
  Begin
     Writeln('Число, пожалуйста');
     a:=a+b;
     readln(b);
  End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.