Опубликовано 5 лет назад по предмету Информатика от anastasovae

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

Ответ

Ответ дан BlackyFox

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.

Самые новые вопросы

Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают