дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
var a,k,i,min,z:integer;c:real;
begin
min:=30000;
c:=1;
read(a,k);
if a>0 then
begin
for i:=1 to k do
begin
z:=i;
c:=c+1/z;
if (c>a)and(c<min)then min:=i;
end;
writeln('min',min);
end;
end.