Дмитрий_Пергамент669
?>

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

Информатика

Ответы

nuralievelsh

Объяснение:

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Складіть програму, яка буде рахувати кількість введених з клавіатури речень​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Kashirina
rykovatv6
tyrnaus
prianik6
kassel1b
Ka2ffka141
alex-kuzora4411
udalova-yelena
mstapottery
kashihina
Анна Марина1873
Ulianev77
proporcia46
alex091177443
infosmolenskay
▲