Обычный паскаль!
Написать в тетради код программы, которая запрашивает у пользователя числа и считает их сумму до тех пор, пока пользователь не введет число 44.
После этого программа должна прекратить запрашивать числа и вывести пользователю сумму.
Заранее спасибо!
Answers & Comments
var a,b:integer;
begin
b:=0;
while a<>44 do
begin
write('введите число ');
readln(a);
b:=a+b;
end;
write('сумма введённых чисел=',b);
end.