Предмет: Информатика,
автор: Ксения0001
Составьте программу ,которая:считает, сколько раз в тексте, заданном с клавиатуры, встречается буква «М».решение паскаль через цикл
Ответы
Автор ответа:
0
program primer;
var st1,st:string;
a,b:integer;
begin
write('введите текст ,в конце ввода нажмите enter'); writeln;
read(st);
for a:=1 to length(st) do begin
st1:=copy(st,a,1);
if st1='М' then
inc(b)
else if st1='м' then
inc(b)
else;
end;
write(b);
end.
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: radkir231
Предмет: Математика,
автор: olchik0366
Предмет: Химия,
автор: KralaUrala
Предмет: Химия,
автор: KralaUrala