Использовать mod и div. через ! написать программу, которая определяет, сколько раз буква "а" встречается в полученной от пользователя строке. не используй, : const, count. через паскаль!

dsfsksgsms dsfsksgsms    1   24.09.2019 00:30    0

Ответы
shaduraalya shaduraalya  08.10.2020 13:42
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика