Program Stats; var a,k,d,c:integer; begin d:=0; k:=0; c:=0; repeat readln(a); d:=d+1; if a>= 0 then begin k:=k+1; end; if a<0 then begin c:=c+1; end; until d = 14; writeln('+ ',k); writeln('- ',c); readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
