1.С клавиатуры вводится 3 числа. Найти сумму только из положительных...

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.

Comments

А ведь вводится только 3 числа ?

---

ну, ты написал, что вводится 3, я сделал программу под 3

---

2)
program qq;
var a,b,c,d,g:integer;
begin
read(a);
b:=a mod 10;
c:=a div 10;
d:=b*c;
g:=b+c;
writeln(g);
writeln(d);
end.