Задание:
Составьте программу, которая: считает, сколько раз в тексте, заданном с клавиатуры, встречается буква «М» . Решение паскаль через цикл
Решение:
program primer; var st1,st: string; a,b: integer; beginwrite ('введите текст, в конце ввода нажмите enter'); writeln; read (st); for a: =1 to length (st) do beginst1: =copy (st,a,1); if st1='М' theninc (b) else if st1='м' theninc (b) else; end; write (b); end.
Знаете другой ответ?