Напишите программу которая считает сумму положительных из трех веденный чисел
Как это записать в программе паскаль?

1

Ответы и объяснения

2013-02-15T11:41:19+04:00

var a,b,c,s: integer;

begin

readln(a,b,c);

s:=0;

if (a>0) then s:=s+a;

if (b>0) then s:=s+b;

if (c>0) then s:=s+c;

writeln(s);

end.