Информатика, опубликовано 2018-08-22 21:20:05 by Гость
Составьте программу подсчёта общего количества русских и латинских букв "а" и "А" во введенной с клавиатуры строке s
Ответ оставил Гость
Program Task;
Var s: String;
i, r: Integer;
Begin
WriteLn(Введите строку:);
ReadLn(s);
For i := 1 To Length(s) Do
If (s[i] = a) Or (s[i] = A) Or (s[i] = а) Or (s[i] = А) Then
r := r + 1;
WriteLn(Результат: , r);
ReadLn;
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на