Дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. напишите в паскале
Аймания
1
21.06.2019 00:50
0
Другие вопросы по теме Информатика
20262003
22.04.2020 12:31
Симская
03.12.2020 10:17
dneprovskaya20
30.06.2019 11:50
ijulijuli23
30.06.2019 11:40
саша2006101
30.06.2019 11:40
Arina1666
30.06.2019 11:40
смпанк2004
30.06.2019 11:40
hellooiooooooo
30.06.2019 11:40
kmurtazalieva72
30.09.2019 01:00
Популярные вопросы
- Как вы понимаете финал легенды Сухомлинского о материнской любви?...
3 - Чому безпритульність та бездоглядність дітей небезпечна для їхнього здоровя...
3 - Подготовить сообщение по теме рузум вселенной...
2 - Чи є розвязком системи рівнянь {x+y=7 x-y=1 пара чисел (4;3) (5;2)?...
3 - В чем видит залог своего бессмертия Гораций Флакк в оде «К Мельпомене»?...
2 - Когда у М. Твена возникло непреодолимое желание путешествовать по миру?...
1 - Обратим ли процесс одомашнивания ? (да - нет, примеры)...
3 - Значение выражения (15−y) в 2 раза больше значения самого y сколько будет...
3 - Нарисуй треугольник ABC и проведи DE ∥ AC. Известно, что:D∈AB,E∈BC, ∢ABC=75°,...
3 - у меня контрольная 1. Найдите значение функции а)y=x^3+2x^2-5x+3 при...
3
var i,s,r:integer;
begin
s:=1;
read(i);
while i<>0 do
begin
if (i<0)and(i<>0) then r:=r+1 else s:=s*i;
read(i);
end;
writeln(s,r);
end.