Составьте программу, которая: считает, сколько раз в тексте…

Question

Составьте программу, которая: считает, сколько раз в тексте, заданном с клавиатуры, встречается буква «М» . Решение паскаль через цикл

Answer 1

80

uorypm

16 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: