С клавиатуры последовательно вводятся символы. Признаком конца ввода является точка. Составить программу выбрасывания групп символов
183
446
Ответы на вопрос:
program SKOBKI;
var c: char; i: integer;
begin
¦ i := 0; read (c);
¦ while c <> '.' do
¦ begin
¦ ¦ if c = '(' then i : = 1
¦ ¦ else if c = ')' then i := 0
¦ ¦ else if i = 0 then write (c);
¦ ¦ read (c);
¦ ¦ end;
end.
var c: char; i: integer;
begin
¦ i := 0; read (c);
¦ while c <> '.' do
¦ begin
¦ ¦ if c = '(' then i : = 1
¦ ¦ else if c = ')' then i := 0
¦ ¦ else if i = 0 then write (c);
¦ ¦ read (c);
¦ ¦ end;
end.
Популярно: Другие предметы
-
niznaika888888888804.11.2022 00:27
-
guiuhui23.12.2022 01:38
-
vykvyk005oxq5pm20.01.2021 19:36
-
RomaNeymarjr30.11.2022 18:38
-
Brozuca02.05.2023 23:45
-
karinaandreevozb5ha30.07.2020 07:42
-
Xonus04.04.2020 00:20
-
Sofiaaaaaaaaaaa110.08.2020 14:44
-
angel0000l21.10.2020 11:44
-
Юля545455415.05.2023 04:25