Поделиться
Л2-00625.docx
Операторы цикла
Пример. Дана последовательность целых чисел за которой следует ноль. Вычислить сумму элементов последовательности.
Program primer; Var i, a, s : integer;
Begin
s := 0;
Read (a);
While a <> 0 do begin s := s + a;
Read (a); end;
Write ('Сумма элементов равна ', s); End.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
