Question

1.С клавиатуры вводится 3 числа. Найти сумму только из положительных чисел.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )

Answer 1

1)
program qq;
var a,b,c,d:integer;
begin
read(a,b,c);
d:=0;
if a>0 then d:=d+a;
if b>0 then d:=d+b;
if c>0 then d:=d+c;
writeln(d);
end.