Question

"Найти сумму всех положительных чисел вводимых с клавиатуры. Если 0, то вывод на печать" Программа Паскаль АВС....ПОМОГИТЕ!!!!!!!

Answer 1

uses crt;

var a,s:integer;

begin

s:=0;

writeln('Введите числа');

repeat

readln(a);

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

until a=0;

writeln(s);

end.

Answer 2

uses crt;

var a,s:integer;

begin

s:=0;

writeln('Введите числа');

while a<>0 do begin

readln(a);

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

end;

writeln('s=',s);

end.