Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Нужно написать в PascalABC
Буду благодарен!
Даны натуральное число n и символы s1,...,sn.Подсчитать , сколько раз среди данных символов встречается символ + и сколько раз символ * .

Ответ оставил Гость

Var n, i, StarCount, PlusCount:integer;
    s:char;
begin
StarCount:=0;
PlusCount:=0;
 writeln(Enter n);
readln(n);
for i:=0 to n-1 do
    begin
    writeln(Enter the symbol);
    readln(s);
    if(s=*) then StarCount:=StarCount+1;
    if(s=+) then PlusCount:=PlusCount+1;
    end;
 writeln(Count of star: , StarCount);
 writeln(Count of plus: , PlusCount);
 end.