Консультация № 137750
21.05.2008, 17:34
0.00 руб.
0 1 1
Помогите пожалуйста решить задачу. Суммировать вводимые числа. При вводе одного нуля вывести на экран сумму. При вводе двух нулей подряд закончить работу.

Обсуждение

Неизвестный
21.05.2008, 21:21
общий
это ответ
Здравствуйте, HelenaBC!
Код с пояснениями в приложении.
Удачи!!!


Приложение:
var {sum-сумма, b-число, c-вспомогательная переменная} sum, b, c: integer; {i-число вводимое пользователем, т.к. Integer не может хранить такие числа: 00, то сначало сохранаяем число в строку, а потом если это не 0 и не 00 перведим в Integer} i: string;begin {Цикл который прекратится когда будет введено 00} repeat {Обнуляем сумму} sum:=0; {бесконечный цикл в котором получаем числа и прибавляем их к сумме} while true do begin {получаем число} Write(‘Введите число: ‘); readln(i); {если введено 0 или 00, то выходим из цикла} if (i=‘0‘) or (i=‘00‘) then break; {Иначе преобразуем строку в число(число сохр. в b)} val(i, b, c); {И прибавляем к сумме} sum:=sum+b; end; {После цикла ввода проверяем если введен 0, то выводим сумму} if i=‘0‘ then begin Write(‘Сумма: ‘); Writeln(sum); end; {Конец главного цикла} until i=‘00‘;end.
Форма ответа