• Определить в введенном тексте кол-во русских и английских букв а также цифр .
    Составьте пожалуйста задачу в Pascal ABC. Зарание спасибо!

Ответы 1

  • vars: string;rus, eng, cif: set of char;i, r, e, c: integer;beginrus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];eng := ['A'..'Z', 'a'..'z'];cif := ['0'..'9'];write('Введите текст: ');readln(s);for i := 1 to length(s) dobeginif s[i] in rus then inc(r);if s[i] in eng then inc(e);if s[i] in cif then inc(c)end;writeln('Русских букв: ', r);writeln('Английских букв: ', e);writeln('Цифр: ', c)end.
    • Автор:

      charisma
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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