Здравствуйте, 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.

Консультировал: Абельхарисов Руслан / Marked O Дата отправки: 21.05.2008, 21:21

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »