Составить программу нахождения количества букв "а" в тексте ( на языке паскаль )
194
419
Ответы на вопрос:
Var s: string; i, m: integer; begin readln(s); m: =0; for i: =1 to length(s) do if(s[i]='a') then m: =m+1; writeln(m); end.
Популярно: Информатика
-
Do1git11.06.2022 07:19
-
vladik3331617.03.2021 12:59
-
milyukovnikita11.07.2021 03:34
-
1389570208465781257012.02.2021 08:58
-
ОверДовн08.06.2021 17:12
-
бооой01.04.2020 23:28
-
marianna12312320.01.2022 01:40
-
MiKaSaKuN21.12.2021 07:13
-
дима564620.05.2021 07:04
-
nikpenkov0224.01.2021 14:37