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

Ответы 1

  • Program Task;Var s: String;i, r: Integer;BeginWriteLn('Введите строку:');ReadLn(s);For i := 1 To Length(s) DoIf (s[i] = 'a') Or (s[i] = 'A') Or (s[i] = 'а') Or (s[i] = 'А') Thenr := r + 1;WriteLn('Результат: ', r);ReadLn;End.
    • Автор:

      havenooiw
    • 2 года назад
    • 7
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years