НАПИШИТЕ ПРОГРАММУ,КОТОРАЯ ВО ВВЕДЕННОЙ С КЛАВИАТУРЫ СТРОКЕ ЗАМЕНЯЕТ ВСЕ МАЛЕНЬКИЕ ГЛАСНЫЕ ЛАТИНСКИЕ БУКВЫ НА БОЛЬШИЕ.
Answers & Comments
maksimnaumov112345678910111213141516171819202122uses crt; var s,g:string; i,kol:integer; begin clrscr; g:='AEIOU'; Write('Текст: ');readln(s); Writeln('Исходный текст: '); Writeln(s); For i:=1 to length(s) do begin if s[i] in ['0'..'9'] then s[i]:=' '; If pos(s[i],g)>0 then inc(kol); if s[i] in ['a'..'z'] then s[i]:='?'; end; Writeln('Кол-во прописных гласных - ',kol); Writeln('Преобразованный текст: '); Writeln(s); readkey end.
begin clrscr; g:='AEIOU'; Write('Текст: ');readln(s); Writeln('Исходный текст: '); Writeln(s); For i:=1 to length(s) do begin if s[i] in ['0'..'9'] then s[i]:=' '; If pos(s[i],g)>0 then inc(kol); if s[i] in ['a'..'z'] then s[i]:='?'; end; Writeln('Кол-во прописных гласных - ',kol); Writeln('Преобразованный текст: '); Writeln(s); readkey end.
Answers & Comments
i,kol:integer;
begin
clrscr;
g:='AEIOU';
Write('Текст: ');readln(s);
Writeln('Исходный текст: ');
Writeln(s);
For i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then s[i]:=' ';
If pos(s[i],g)>0 then inc(kol);
if s[i] in ['a'..'z'] then s[i]:='?';
end;
Writeln('Кол-во прописных гласных - ',kol);
Writeln('Преобразованный текст: ');
Writeln(s);
readkey
end.