Умоляю ДАЮ 50 БАЛЛОВ! ПАСКАЛЬ Помогите пожалуйста решить 2 программы . Пожалуйста срочно...

Question

Умоляю ДАЮ 50 БАЛЛОВ! ПАСКАЛЬ Помогите пожалуйста решить 2 программы . Пожалуйста срочно надо!?! Алфавит состоит из Ы, Ц, Щ, О
1) Вывести на экран слова из К букв, в которых Ы встречается более одного раза и посчитать количество.
2) Вывести на экран все слова из К букв, в которых есть одинаковые буквы, стоящие рядом. Посчитать их количество.'

Answer 1

1.
program n_1;
var a, b : string; i, s, n: integer;
begin
n:=0;
repeat
writeln('Введите слово');
readln(a);
s:=length(a);
for i:=1 to s do
begin
if a[i]='' then n:=n+1
end;
if n>=2 then b:=b+' '+a;
writeln('Слово',b);
writeln('Количество букв: ', n);
end.
program abc;
var a:string; z, i, k, l m, n: integer;
begin
k:=0;
l:=0;
m:=0;
n:=0;
writeln('Введите слово');
readln(a);
z:=length(a);
for i:=1 to z do
begin
if a[i]='Щ' then k:=k+1 else
if a[i]='Ц' then l:=l+1 else
if a[i]='Ы' then n:=n+1 else m:=m+1;
end;
writeln('Щ', k, 'Ц', l, 'Ы', n, 'О', m);
end.
это на нахождение двойных букв
program chet;
var a, l: string; s, i: integer;
begin
repeat
writeln('Введите слово');
readln(a);
s:=length(a);
for i:=1 to s do
if a[i]=a[i+1] then l:l+' '+a;
until a>' ';
writeln(l);
end.

Comments

1.