Создать алгоритм. Даны три числа a b c определить произведение положительных чисел. Помогите пожалуйста
Создать алгоритм. Даны три числа a b c определить произведение положительных чисел. Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьvar
p,a,b,c:longint;
begin
p:=1;
read(a,b,c);
if a>0 then p:=p*a;
if b>0 then p:=p*b;
if c>0 then p:=p*c;
writeln(p);
end.
Не нашли ответ?
Похожие вопросы