Подсчитать, сколько раз среди заданных символов встречаются '+' и '*' - Pascal ABC
Формулировка задачи:
Даны натуральное число n, символы s1,..., sn. Подсчитать сколько раз среди данных символов встречается символ + и сколько раз символ *.
Решение задачи: «Подсчитать, сколько раз среди заданных символов встречаются '+' и '*'»
textual
Листинг программы
var n,i,kp,kz:integer;
c:char;
begin
write('Количество символов n=');
readln(n);
kp:=0;
kz:=0;
for i:=1 to n do
begin
write('Символ ',i,': ');
readln(c);
if c='+' then inc(kp)
else if c='*' then inc(kz);
end;
writeln('Знаков + = ',kp);
writeln('Знаков * = ',kz)
end.
Объяснение кода листинга программы
- Создаются переменные n, i, kp и kz, которые будут использоваться для подсчета количества символов '+' и '*'.
- Выводится запрос на ввод количества символов n.
- Переменные kp и kz инициализируются нулем.
- Запускается цикл for, который будет выполняться от 1 до n (количество введенных символов).
- Внутри цикла выводится запрос на ввод символа i.
- Если символ равен '+', то значение переменной kp увеличивается на единицу.
- Если символ равен '*', то значение переменной kz увеличивается на единицу.
- После выполнения цикла выводится количество знаков '+', а затем количество знаков '*'.