1. Дана строчка знаков. Напечатать новый текст, удалив из ветхого знаки,
1. Дана строчка знаков. Напечатать новый текст, удалив из старого знаки, находящиеся снутри круглых скобок. Скобки тоже удалить. Подсчитать количество удалённых знаков. Подразумевается, что внутри каждой пары скобок иных скобок нет
2. Начертите блок-схему и напишите паскаль-программу для решения последующей задачки: Ввести текст длиной до 254 знаков. Вывести на экран слова, начинающиеся с большей буквы. Количество таких слов также вывести на экран.
Нужна на сто процентов написанная программка
1 ответ
Ваня Юкусов
Var
s : String;
i : Integer;
begin
Writeln('Введите строчку:');
Readln(s);
i:= 0;
while pos(')', s) lt;gt; 0 do
begin
i := i + pos(')', s) - pos('(', s) + 1;
delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
end;
Writeln(s);
Writeln(i);
Readln;
end.
2)
var
s : String;
i, e : Integer;
flag : Boolean;
begin
Writeln('Введите строчку:');
Readln(s);
e := 0;
flag := False;
for i := 1 to Length(s) do
begin
if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
if flag then Write(s[i]);
if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
begin
flag := False;
inc(e);
Writeln;
end;
end;
Writeln(e);
Readln;
end.
s : String;
i : Integer;
begin
Writeln('Введите строчку:');
Readln(s);
i:= 0;
while pos(')', s) lt;gt; 0 do
begin
i := i + pos(')', s) - pos('(', s) + 1;
delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
end;
Writeln(s);
Writeln(i);
Readln;
end.
2)
var
s : String;
i, e : Integer;
flag : Boolean;
begin
Writeln('Введите строчку:');
Readln(s);
e := 0;
flag := False;
for i := 1 to Length(s) do
begin
if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
if flag then Write(s[i]);
if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
begin
flag := False;
inc(e);
Writeln;
end;
end;
Writeln(e);
Readln;
end.
Николай Иссерс
спс завтра с компютера зайду поставлю наилучшее
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов