Составить программу,которая во введенном тексте удваивает латинские буквы

@Stalin_life · Регистрация: 28.12.2012

Author24 — интернет-сервис помощи студентам

Добрый день, помогите пожалуйста с задачей
Составить программу,которая во введенном тексте удваивает латинские буквы, подсчитывает количество цифр и удаляет все гласные буквы русского алфавита.
Использовать данные типа множество. Программу просчитать для различных исходных данных. Напечатать выдать исходный текст, количество цифр и преобразованный текст.

@Gidropon · 20.03.2013, 00:32

Pascal

program xxx;
 
type stroka = set of char;
  var
    x:string;
    LATbol,LATmal,num,KIRbol,KIRmal:stroka;
    
var
i,k:integer;
 
begin
  LATbol:=['A'..'Z'];
  LATmal:=['a'..'z'];
  num:=['0'..'9'];
  KIRmal:=['а','у','о','ы','и','э','я','ю','ё','е'];
  KIRbol:=['А','У','О','Ы','И','Э','Я','Ю','Ё','Е'];
  write('Введите текст: ');
  readln(x);
  For i:=1 to length(x) do 
    begin
      if (x[i] in LATbol) or (x[i] in LATmal) then
        write(x[i],x[i])
      else if x[i] in num then begin
        write(x[i]);
        inc(k);
        end;
        if (x[i] in KIRbol) or (x[i] in KIRmal) then
          delete(x,i,1);
    end;
    writeln();
    writeln('Количество цифр: ',k);
end.

@Stalin_life 0 / 0 / 0 Регистрация: 28.12.2012 Сообщений: 17
		1
	Составить программу,которая во введенном тексте удваивает латинские буквы 19.03.2013, 22:43. Показов 2615. Ответов 1 Метки нет (Все метки) Добрый день, помогите пожалуйста с задачей Составить программу,которая во введенном тексте удваивает латинские буквы, подсчитывает количество цифр и удаляет все гласные буквы русского алфавита. Использовать данные типа множество. Программу просчитать для различных исходных данных. Напечатать выдать исходный текст, количество цифр и преобразованный текст. 0

	20.03.2013, 00:32

Составить программу,которая во введенном тексте удваивает латинские буквы

Решение