Паскаль1) Задана строка, проверить есть ли в этой строке буковка "а"
Паскаль
1) Задана строчка, проверить есть ли в этой строке буковка "а"
2) задана строчка, проверить сколько раз встречаться в этой строке буква "м"
3) задана строка, удалить из этой строки все буковкы "и"
1 ответ
Солуянова
Татьяна
1)
var
s: string;
begin
writeln('Введите строчку: ');
readln(s);
if pos('а', s) lt;gt; 0 then writeln('В строке есть буковка "а"')
else writeln('В строке нет буковкы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строчку: ');
readln(s);
while pos('и', s) lt;gt; 0 do delete(s, pos('и', s), 1);
writeln('Строчка после удаления букв(ы) "и": ', s);
end.
var
s: string;
begin
writeln('Введите строчку: ');
readln(s);
if pos('а', s) lt;gt; 0 then writeln('В строке есть буковка "а"')
else writeln('В строке нет буковкы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строчку: ');
readln(s);
while pos('и', s) lt;gt; 0 do delete(s, pos('и', s), 1);
writeln('Строчка после удаления букв(ы) "и": ', s);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов