Умоляю ДАЮ 50 БАЛЛОВ!

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

в избранное

kubera

22 августа 2022

1.program n_1; var a, b: string; i, s, n: integer; beginn: =0; repeatwriteln ('Введите слово'); readln (a); s: =length (a); for i: =1 to s dobeginif a[i]=' then n: =n+1end; if n>=2 then b: =b+'+a; writeln ('Слово',b); writeln ('Количество букв: ', n); end.program abc; var a: string; z, i, k, l m, n: integer; begink: =0; l: =0; m: =0; n: =0; writeln ('Введите слово'); readln (a); z: =length (a); for i: =1 to z dobeginif 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; beginrepeatwriteln ('Введите слово'); readln (a); s: =length (a); for i: =1 to s doif a[i]=a[i+1] then l: l+'+a; until a>'; writeln (l); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?