Напишите программу . условие такое. мы вводим строку(любую) программа должна посчитать количество букв "а" , если же такой буквы в этой строке нет программа должна выводить сообщение о том что такой буквы нет.
291
326
Ответы на вопрос:
Var s: string; i,k: integer; begin k : = 0; readln(s); for i : = 1 to length(s) do if s[i] = 'а' then k : = k + 1; if k > 0 then writeln(k) else writeln('нет искомой буквы') end.
Популярно: Информатика
-
Котэ112шк03.04.2022 03:14
-
Дарчик130.03.2021 14:19
-
daregloverp08l0m22.11.2022 04:47
-
SuperArtem5206.02.2022 03:58
-
f79gkr4st14.02.2020 03:54
-
oleh0915601.03.2021 18:12
-
kongratbaeva200321.02.2022 18:39
-
sasha363719.05.2022 17:22
-
sasha183609.03.2022 16:49
-
Bakuninalexander05.08.2020 19:22