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

Program a;
var i,s,r:integer;
begin
s:=1;
read(i);
while ilt;gt;0 do
begin
if (ilt;0)and(ilt;gt;0) then r:=r+1 else s:=s*i;
read(i);
end;
writeln(s,r);
end.

Рюмкин Данил 2019-08-04 23:35:00

через мин 2-3

Iljuha 2019-08-04 23:42:08

вот спасибо, разумный человек :)

Градников Степа 2019-08-04 23:43:30

Дано число а, а больше 1, вывести меньшее из целых чисел К, для которых сумма 1+1/2+1/3 и тд+1/к будет больше а-

Marina Gorodishher 2019-08-04 23:50:38

это все условие ?

Карданов Андрюха 2019-08-04 23:54:19

да, одно

Ирина Метлош 2019-08-05 00:02:03

да, все*

Ангелина Питеримова 2019-08-05 00:06:08

program abc;var a,k,i,min,z:integer;c:real;beginmin:=30000;c:=1;read(a,k);if a>0 thenbeginfor i:=1 to k dobeginz:=i;c:=c+1/z;if (c>a)and(c

Ульяна Фречер 2019-08-05 00:13:33

ps:если правдиво это приблизительно что необходимо если контроль пример то проверь

Любовь 2019-08-05 00:15:47

спасибо)

Алиса 2019-08-05 00:25:09

если контрольный есть пример то проверь

О проекте

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

Добро пожаловать!