Обычный паскаль! Написать в тетради код программы, которая запрашивает у пользователя...

Question

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

Answer 1

Program nevazhno;
var a,b:integer;
begin
b:=0;
while a<>44 do
begin
write('введите число ');
readln(a);
b:=a+b;
end;
write('сумма введённых чисел=',b);
end.

Comments

Это плохое решение. Когда будет введено 44, оно тоже добавится к сумме.

---

а, извини... ты просто не указал, что 44 не нужно прибавлять к сумме... сейчас тогда исправлю

---

тогда в предпоследней строчке напиши: write('сумма введённых чисел=',b-44);

---

Фраза "считает их сумму ДО ТЕХ ПОР, ПОКА пользователь не введет число 44" - это разве не показатель того, что 44 - это стоп-код и уже не участвует в вычислениях?

---

неа, он 44 считает тоже как переменную... ну конечно можно посидеть и подумать над другим, более сложным решением... но, по моему так будет проще...