Вопрос по информатике:
Нужно написать в PascalABC
Буду благодарен!
Даны натуральное число n и символы s1,...,sn.Подсчитать , сколько раз среди данных символов встречается символ + и сколько раз символ * .
- 03.07.2018 23:12
- Информатика
- remove_red_eye 9902
- thumb_up 39
Ответы и объяснения 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.
- 04.07.2018 10:29
- thumb_up 46
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.
- 05.07.2018 03:40
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.