Написать программу вводя числа с клавиатуры без ограничения их количества (конец ввода - число 0), найти сумму положительных и произведение отрицательных чисел ..
osmyhinaozd6ev
3
02.04.2019 06:30
0
Другие вопросы по теме Информатика
jeka3636327867
20.11.2020 07:58
ино7
20.11.2020 07:58
LLA7A
20.11.2020 07:58
mercurry
12.07.2019 10:10
05971vitaznadez
12.07.2019 10:10
kino2011
08.09.2019 11:50
anelya033
08.09.2019 11:50
elag
08.09.2019 12:00
BTSExo1
08.09.2019 12:00
Популярные вопросы
- докажите тождество (2 \ a^2-9 - а-2 \ а^2+6a+9) : 4а-3\(а+3^2)= 2\a-3...
1 - ответь на Во из рассказа Загадка Пустой Планеты 1.Какое впечатление на...
3 - Задача,очень Карий цвет глаз-доминантный признак. Голубоглазая женщина...
2 - 1. 2. К 100-летию Бородинской битвы художник Франц Рубо создал панораму...
3 - Сказка Ю.Алтынсарина Хлопковая девушка и кот маленькие...
3 - Мне нужно сделать проект презинтацию Дружба в колективе предмет Самопознание...
3 - Знайдіть висоту паралелеграма яка проведена з точки В до сторони CD, якщо...
1 - Найти площадь фигуры, ограниченной линиями y=x^2-6x+4, y=0, x=1, x=2...
1 - 1. Используя модель, покажите, что действие придаточного дополнительного...
3 - Составить схему происхождения живых организмов(бактерии,грыбы,животные...
2
program c1;
var
a,b,n:longint;
Begin
a:=0;
writeln('Вводи числа sergei1906');
repeat
read(n);
if n>0 then b:=b+n;
if n<0 then a:=a*n;
until n=0;
Writeln('Сумма положительных чисел: ',b);
Writeln('Произведение отрицательных чисел: ',a);
End.