Складіть програму, яка буде рахувати кількість введених з клавіатури речень​

dariadaria6 dariadaria6    3   22.04.2021 18:43    2

Ответы
DarckGh0st DarckGh0st  22.04.2021 18:50

Объяснение:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика