Паскаль. даны 4 целых числа. определить сумму - вопрос №410091553 от Kfhjrhnf 13.06.2021 18:22

Question

Информатика: Паскаль. даны 4 целых числа. определить сумму только положительных чисел.

Kfhjrhnf · Answer

var a,b,c,d:integer;beginreadln(a,b,c,d);if(a 0) then a:=0;if(b 0) then b:=0;if(c 0) then c:=0;if(d 0) then d:=0;writeln(a+b+c+d);end.Объяснение:...