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

2

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

2012-04-12T19:57:55+04:00

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.

 

2012-04-12T21:08:10+04:00

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.