сосчитать кол-во букв й Й в строке, которую введешь
Ответы на вопрос
Ответил domex
0
program p1;
var s:string;
i,z:integer;
begin
write('Введи текст: ');
readln(s);
for i:=1 to length(s) do
begin
if (s[i]='й') or (s[i]='Й') then
z:=z+1;
end;
writeln('Букв "й" в тексте ',z,' штук');
end.
var s:string;
i,z:integer;
begin
write('Введи текст: ');
readln(s);
for i:=1 to length(s) do
begin
if (s[i]='й') or (s[i]='Й') then
z:=z+1;
end;
writeln('Букв "й" в тексте ',z,' штук');
end.
Ответил odobrovolskaya
0
спасибо большое!! очень выручил)
Ответил domex
0
Нез
Новые вопросы