Предмет: Информатика, автор: AddaBe88

Дана последовательность целых чисел, заканчиваемые нулем. Подсчитайте сумму положительных чисел последовательности.  Пожалуйста помоги!!!

Ответы

Автор ответа: Bakalavr
0
program beg;
var a,sum:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then sum:=sum+a;
end;
writeln(sum);
end.
Интересные вопросы
Предмет: Английский язык, автор: armen55526
Предмет: Экономика, автор: Appelsin12
Помогите с Экономической теорией
1.Кардиналистская концепция полезности предполагает, что функция полезности:
1) может быть представлена графически;
2) не может быть выражена аналитически;
3) дает возможность точного определения величины полезности;
4) верно 1) и 3);
5) все ответы правильные.

2. Наклон кривой спроса объясняется:
1) эффектом замещения;
2) эффектом дохода;
3) эффектом Гиффена;
4) верно 1) и 2);
5) нет правильного ответа.

3.При потреблении двух товаров (х,у) снижение цены товара х смещает равновесие потребителя:
1) на более высокую кривую безразличия;
2) на более низкую кривую безразличия;
3) вдоль той же самой кривой безразличия;
4) на новую линию бюджетного ограничения;
5) верно 1) и 4).

4. Функция спроса может быть выведена на основе:
1) кривых Энгеля;
2) линии «доход-потребление»;
3) линии «цена-потребление»;
4) графического изображения эффектов дохода и замены;
5) верно 3) и 4).

5. Кривые Энгеля:
1) отражают изменения величины спроса при изменении цены;
2) строятся на основе кривых «доход-потребление»;
3) строятся на основе кривых « цена – потребление»;
4) являются прямыми линиями для всех типов благ;
5) верно 1) и 3).