Нужно написать в PascalABC Буду благодарен! Даны натуральное число n и символы s1,...,sn.Подсчитать , сколько раз среди данных символов встречается символ + и сколько раз символ * .
Нужно написать в 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.
Гость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.
Не нашли ответ?
Похожие вопросы