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

Как это записать в программе паскаль?

Question

Никиха

11 августа, 06:33

+3

Ответы (1)

Знаете ответ?

Юка · Answer 1

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.

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