Разработать алгоритм. Даны три числа: a, b, c. Определить произведение положительных чисел.

Question

Информатика

Ксенофонт

14 января, 18:09

Разработать алгоритм. Даны три числа: a, b, c. Определить произведение положительных чисел.

+1

Ответы (1)

Знаете ответ на вопрос?

Гортензия · Answer 1

Var

a, b, c, s:integer;

begin

s:=1;

readln (a, b, c) ;

if (a<=0) AND (b<=0) AND (c<=0) then

writeln ('Среди чисел a, b, c нет положительных чисел')

else

begin

if a>0 then

s:=s*a;

if b>0 then

s:=s*b;

if c>0 then

s:=s*c;

writeln (s) ;

end;

end.