Подсчитать, сколько раз среди заданных символов встречаются '+' и '*' - 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.

Объяснение кода листинга программы

  1. Создаются переменные n, i, kp и kz, которые будут использоваться для подсчета количества символов '+' и '*'.
  2. Выводится запрос на ввод количества символов n.
  3. Переменные kp и kz инициализируются нулем.
  4. Запускается цикл for, который будет выполняться от 1 до n (количество введенных символов).
  5. Внутри цикла выводится запрос на ввод символа i.
  6. Если символ равен '+', то значение переменной kp увеличивается на единицу.
  7. Если символ равен '*', то значение переменной kz увеличивается на единицу.
  8. После выполнения цикла выводится количество знаков '+', а затем количество знаков '*'.

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы