Question

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

Answer 1

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.

Answer 2

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

Answer 3

program simvol;

Answer 4

var n,i,a:integer;

Answer 5

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

Answer 6

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

Answer 7

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.