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