Даю 20 баллов. Программа PascalABC задача:написать программу для подсчета суммы только положительных,из 3 данных чисел.
Answers & Comments
leonovru
Var a, s, i:integer; begin s:=0; for i:=1 to 3 do begin write('Введите число: '); readln(a); if a>0 then s:=s+a; end; writeln('Сумма положительных чисел: ', s) end.
2 votes Thanks 4
TaTaPmember
Var a,b,c,sum:integer; begin writeln('Введите три числа:'); read(a,b,c); if a>0 then sum:=sum+a; if b>0 then sum:=sum+b; if c>0 then sum:=sum+c; writeln('Сумма положительных чисел равна ',sum); end.
Answers & Comments
begin
s:=0;
for i:=1 to 3 do
begin
write('Введите число: ');
readln(a);
if a>0 then s:=s+a;
end;
writeln('Сумма положительных чисел: ', s)
end.
begin
writeln('Введите три числа:');
read(a,b,c);
if a>0 then sum:=sum+a;
if b>0 then sum:=sum+b;
if c>0 then sum:=sum+c;
writeln('Сумма положительных чисел равна ',sum);
end.