Регистрация
Someoneone
19.06.2023 15:31
Информатика
Есть ответ 👍

Напишите программу . условие такое. мы вводим строку(любую) программа должна посчитать количество букв "а" , если же такой буквы в этой строке нет программа должна выводить сообщение о том что такой буквы нет.

291
326
Посмотреть ответы 2

Ответы на вопрос:

M1A1T1E1M1AT1I1K
M1A1T1E1M1AT1I1K
4,6(74 оценок)
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.
ivan111111
ivan111111
4,7(58 оценок)
10 а а не б потом что 1024 надо 1/2 и будет 512

Популярно: Информатика