Дан текст. определить количество букв "к". по правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. 80 !
281
286
Ответы на вопрос:
Var s: string; k: integer; begin k: =0; s: ='по правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране.'; while pos('к',s)< > 0 do begin; delete(s,pos('к',s),1); inc(k); end; writeln(k); end.ответ: 6
Популярно: Информатика
-
Angelina93701.09.2021 22:38
-
Котик284118.04.2022 21:51
-
mrtopgame05.04.2021 21:43
-
Sendula19.10.2020 18:39
-
samorukov200514.08.2021 05:22
-
bosschakalev25.12.2021 03:56
-
Jinx200207.07.2020 15:13
-
Елена561614.06.2021 16:42
-
fvbh3fvhc15.05.2020 12:12
-
alyastoun0026.07.2022 10:13