Дано предложение. Заменить все буквы е на н.
Program zad;
var
a:string;
begin
writeln('введи предожение');
readln(a);
thcha[е]: ='н'
writeln(a);
end.
var
s: string;
c: integer;
begin
write('строка? ');
readln(s);
for c := 1 to length(s) do if s[c] = 'е' then s[c] := 'н';
writeln('результат: ', s);
end.
вот прога, примени к своей задаче
{Составьте программу вычисление всех букв "Е" в предложение }
program str1;
uses crt;
var
i,k:integer;
s,s1:string;
begin
clrscr;
write('Введите предложение с буквой E(--> '); readln(s);
for i:=1 to length(s) do
if (S [ I ] ='Е')then k:=k+1;
writeln('кол-во букв Е = ',k);
readln;
end.
А что за функция thcha ?
⇢