Var A,b,N:integer; Begin Read(n); If n=0 then writeln('штрафное время не заработано') else While n<>0 do If n>0 then a:=a+n else b:=b+n; Writeln('a-',a,'b-',b,'общее-',a+b); End.
Объяснение:
тип вот
2,4,6,8,0.
Правильный ответ не сомневайся.
Var A,b,N:integer; Begin Read(n); If n=0 then writeln('штрафное время не заработано') else While n<>0 do If n>0 then a:=a+n else b:=b+n; Writeln('a-',a,'b-',b,'общее-',a+b); End.
Объяснение:
тип вот
2,4,6,8,0.
Правильный ответ не сомневайся.