Нужно написать в PascalABC Буду благодарен! Даны натуральное число n и символы...

Question

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

---

Answer 1

Uses crt;
var
a,b,s:char;
t,t1,n,i:integer;
begin
t:=0;
t1:=0;
a:='+';
b:='*';
writeln('Введите n'); readln(n);
for i:=1 to n do
begin
writeln('Введите S');
readln(s);
if s=a then
t:=t+1;
if s=b then
t1:=t1+1;
writeln('S=',s);
end;
writeln('+=',t);
writeln('*=',t1);
end.

Answer 2

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.

---

Comments

К сожалению это не то , но всё равно спасибо

---

Хм, видимо, я неправильно понял, объясните, что не так?

---

вот пример из классной работы

---

program simvol;

---

var n,i,a:integer;

---

это тока начало

---

"program simvol;"
это не обязательно, можно опустить название программы...