Задача с использованием оператора цикла с предусловием While Опции

[Drughi]

Готовлюсь к выпускному экзамену по информатике, но никак не могу решить задачу (именно на Pascal ABC).

Дана последовательность целых чисел, заканчивающаяся двумя нулями подряд. Написать программу, которая вычисляет сумму в последовательности.

Пожалуйста, помогите!

[DarkWishmaster]

Готовлюсь к выпускному экзамену по информатике, но никак не могу решить задачу (именно на Pascal ABC).

Дана последовательность целых чисел, заканчивающаяся двумя нулями подряд. Написать программу, которая вычисляет сумму в последовательности.

Пожалуйста, помогите!

Готовишься к экзамену по информатике и не знаешь как посчитать сумму элементом массива?
Какие сложности, что у тебя не получается?
Хоть кусок програмы напиши, мы доделаем.

[Drughi]

Готовишься к экзамену по информатике и не знаешь как посчитать сумму элементом массива?
Какие сложности, что у тебя не получается?
Хоть кусок програмы напиши, мы доделаем.

я не могу понять условие. Может объяснит кто-нибудь.

[IUnknown]

Готовишься к экзамену по информатике и не знаешь как посчитать сумму элементом массива?

Не массива, а последовательности. Это разные вещи в данном случае. То есть, нужно получать данные от пользователя до тех пор, пока он не введет два нуля подряд. И находить их сумму.


Сообщение отредактировано: IUnknown - 9.06.2011 2:58

[DarkWishmaster]

я не могу понять условие. Может объяснит кто-нибудь.

Добавлено через 5 мин.

Не массива, а последовательности. Это разные вещи в данном случае. То есть, нужно получать данные от пользователя до тех пор, пока он не введет два нуля подряд. И находить их сумму.

ну значит я не понял, извините
Вообщем вот:

Uses Crt;
var a,b,S:integer;
begin ClrScr;
a:=1; 
S:=0;   
while (a<>0) or (b<>0) do   //пока не ввели два нуля 
 begin
    b:=a;
    writeln('Введите число последовательности');
    readln(a);
    S:=S+a;
end; 
writeln('Сумму чисел последовательности: ',S);
readln;
end. 

Сообщение отредактировано: DarkWishmaster - 9.06.2011 1:27

[Drughi]

Добавлено через 5 мин.

ну значит я не понял, извините
Вообщем вот:

Uses Crt;
var a,b,S:integer;
begin ClrScr;
a:=1; 
S:=0;   
while (a<>0) or (b<>0) do   //пока не ввели два нуля 
 begin
    b:=a;
    writeln('Введите число последовательности');
    readln(a);
    S:=S+a;
end; 
writeln('Сумму чисел последовательности: ',S);
readln;
end. 

Благодарю! С меня +