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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.