Дана строка, состоящая из 50 символов. составьте программу, используя процедуру которая определяет сколько раз встречается в строке слог ‘ea’.
214
292
Ответы на вопрос:
Var s: string; k: integer; procedure subinc(var s: string; var k: integer); begin; while pos('ea',s)< > 0 do begin; delete(s,pos('ea',s),2); inc(k); end; end; begin; readln(s); if length(s)< > 10 then exit; subinc(s,k); writeln(k); end.
Популярно: Информатика
-
Aminabr01.07.2022 14:23
-
zulya2411.03.2021 15:49
-
strelecky29.06.2023 06:03
-
Podokonik16.01.2021 00:05
-
angelinaignaty104.01.2023 19:52
-
Arisha5430.01.2023 06:27
-
NoName234529.03.2022 21:01
-
Artemvmmv06.08.2021 06:19
-
N1R230.12.2021 13:45
-
tamilatumasheva12.01.2023 01:57