Вопрос от посетителя
“Найти сумму всех положительных чисел вводимых с клавиатуры. Если 0, то вывод на печать” Программа Паскаль АВС….ПОМОГИТЕ!!!!!!!
Отвечает Илюха:
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.