Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от A до B

на языке паскаль программку

Question

Информатика

Митрич

15 ноября, 00:04

Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от A до B

на языке паскаль программку

+5

Ответы (1)

Знаете ответ?

Устиния · Answer 1

Var a, b, s, p, x: integer;

begin

p:=1;

s:=0;

read (a, b) ;

for x: = a to b do begin

if x>0 then s:=s+x;

if x<0 then p:=p*x;

end;

writeln (s, p) ;

end.

Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от A до Bна языке паскаль программку

Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от A до B

на языке паскаль программку