Складіть програму, яка буде рахувати кількість введених з клавіатури речень
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Поделитесь своими знаниями, ответьте на вопрос:
Объяснение:
var i,n,kp,km:integer; a:char;
begin
kp:=0; km:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if a='+' then:=kp+1;
if a='-' then km:=km+1;
end;
writeln(kp,' ',km);
end.