Question

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

Answer 1

Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if 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.

Answer 2

Определение количества русских и английских букв, а также цифр в тексте

Для определения количества русских и английских букв, а также цифр в введенном тексте, можно использовать язык программирования Pascal ABC. Вот пример задачи на Pascal ABC, которая решает данную задачу:

program CountLettersAndDigits;

var
  text: string;
  russianLetters, englishLetters, digits: integer;
  i: integer;

begin
  // Ввод текста
  writeln('Введите текст:');
  readln(text);

// Инициализация счетчиков
  russianLetters := 0;
  englishLetters := 0;
  digits := 0;

// Подсчет количества русских и английских букв, а также цифр
  for i := 1 to length(text) do
  begin
    if (text[i] >= 'а') and (text[i] <= 'я') then
      russianLetters := russianLetters + 1
    else if (text[i] >= 'А') and (text[i] <= 'Я') then
      russianLetters := russianLetters + 1
    else if (text[i] >= 'a') and (text[i] <= 'z') then
      englishLetters := englishLetters + 1
    else if (text[i] >= 'A') and (text[i] <= 'Z') then
      englishLetters := englishLetters + 1
    else if (text[i] >= '0') and (text[i] <= '9') then
      digits := digits + 1;
  end;

// Вывод результатов
  writeln('Количество русских букв: ', russianLetters);
  writeln('Количество английских букв: ', englishLetters);
  writeln('Количество цифр: ', digits);

end.

Программа запрашивает ввод текста, а затем с помощью цикла проходит по каждому символу текста и подсчитывает количество русских и английских букв, а также цифр. Результаты подсчета выводятся на экран.

Пример использования программы:

Введите текст:
Привет! Hello! 12345
Количество русских букв: 7
Количество английских букв: 5
Количество цифр: 5

В данном примере введенный текст содержит 7 русских букв, 5 английских букв и 5 цифр.

Обратите внимание: Программа не учитывает специальные символы, знаки препинания и пробелы. Она считает только русские и английские буквы, а также цифры. Если вам нужно учесть другие символы, вы можете изменить условия в цикле подсчета.