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

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

Question

Евника

29 августа, 08:04

+1

Ответы (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.

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