Составьте программу подсчёта общего количества русских и латинских букв "а" и "А" во введенной с клавиатуры строке s

Question

Информатика

Эладка

25 сентября, 05:28

Составьте программу подсчёта общего количества русских и латинских букв "а" и "А" во введенной с клавиатуры строке s

+1

Ответы (1)

Знаете ответ на вопрос?

Нася · Answer 1

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.