Дмитрий_Пергамент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*
Комментарий*

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

shilinmikhaillg
mail5
Ignateva737
vettime625
Ofelya1308
vallzh8328
ksenia15-79
lider-mpl550
vnolenev
mishamedbrat
merzlikinairena
tatry2005
соловьев_Куркина
Yevgenevna
dkvsadovoe