Что не так в коде? Не выполняется второе условие

@Avar0087 · Регистрация: 25.03.2019

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
gl:= 'кпстфхцчшщ';* 
zv:= 'бвгджзлмнр';* 
zi: array [1..2,1..10] of integer; *
s: string;* 
i,n:integer;* 
chet:boolean;
begin
chet:=false;
writeln('введите строку из русских слов, разделенные пробелом');
readln(s);
for i:=1 to length(s) do
begin
n:=Pos(s[i],zv);
if (chet=false) then
begin
delete(gl,Pos(s[i],gl),1);
if n>0 then zi[1,n]:=1 *
end
else if n>0 then zi[2,n]:=-1; 
if s[i]=' ' then chet:=not(chet);
end;
writeln('глухие согласные, которых нет в нечетных словах: ',gl); *
write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: '); *
for i:=1 to 10 do
if zi[1,i]+zi[2,i]=1 then write(zv[i]);
end.

паскаль пишет
'' неожиданный символ
самая первая строка после вара

@Puporev · 04.05.2019, 15:14

Зачем у Вас звездочки в конце некоторых строк? Уберите их все.

@Avar0087 · 13.05.2019, 11:02 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
gl:= 'кпстфхцчшщ';
zv:= 'бвгджзлмнр';
zi: array [1..2,1..10] of integer;
s: string;
i,n:integer;
chet:boolean;
begin
chet:=false;
writeln('введите строку из русских слов');
readln(s);
for i:=1 to length(s) do
begin
n:=Pos(s[i],zv);
if (chet=false) then
begin
delete(gl,Pos(s[i],gl),1);
if n>0 then zi[1,n]:=1
end
else if n>0 then zi[2,n]:=-1;
if s[i]=' ' then chet:=not(chet);
end;
writeln('глухие согласные',gl);
write('звонкие согласные');
for i:=1 to 10 do
if zi[1,i]+zi[2,i]=1 then write(zv[i]);
end.

УСЛОВИЕ
Дана непустая последовательность слов из строчных латинских букв. Напечатать в алфавитном порядке :
1)все глухие согласные , которые не входят ни в одно нечетное слово
2)все звонкие согласные которые входят хотя бы в одно не четное слово и не входят ни в одно четное .

@JuriiMW · 13.05.2019, 12:23

Сообщение от Avar0087

непустая последовательность слов из строчных латинских букв

А у вас русские!

@Avar0087 · 13.05.2019, 12:24 **[ТС]**

нет не это, русские и нужны. не выполняется только 2 условие

@JuriiMW · 13.05.2019, 12:36

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var глухие  := 'кпстфхцчшщ';
  var звонкие := 'бвгджзлмнр';
  var s := ReadLnString('введите строку на русском языке:');
  var a := s.ToWords(' .,:;?!'.toArray);
  var нечётные := a.Numerate.Where(v->odd(v[0])).Select(v->v[1]).JoinIntoString;
  var чётные   := a.Numerate.Where(v->not odd(v[0])).Select(v->v[1]).JoinIntoString;
  ('1)  глухие согласные: ' + глухие.Where(c->Not нечётные.Contains(c))).Println;
  ('2) звонкие согласные: ' + звонкие.Where(c->Not чётные.Contains(c))).Println;
end.

@Avar0087 · 18.05.2019, 10:17 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
gl:= 'кпстфхцчшщ';
zv:= 'бвгджзлмнр';
zi: array [1..2,1..10] of integer;
s: string;
i,n:integer;
chet:boolean;
begin
chet:=false;
writeln('введите строку из русских слов');
readln(s);
for i:=1 to length(s) do
begin
n:=Pos(s[i],zv);
if (chet=false) then
begin
delete(gl,Pos(s[i],gl),1);
if n>0 then zi[1,n]:=1
end
else if n>0 then zi[2,n]:=-1;
if s[i]=' ' then chet:=not(chet);
end;
writeln('глухие согласные',gl);
write('звонкие согласные');
for i:=1 to 10 do
if zi[1,i]+zi[2,i]=1 then write(zv[i]);
end.

УСЛОВИЕ
Дана непустая последовательность слов из строчных русских букв. Напечатать в алфавитном порядке :
1)все глухие согласные , которые не входят ни в одно нечетное слово
2)все звонкие согласные которые входят хотя бы в одно не четное слово и не входят ни в одно четное .

@JuriiMW · 18.05.2019, 11:17

Зачем дублировать темы?
https://www.cyberforum.ru/post13565485.html

@kotAV · 18.05.2019, 13:59

Сколько раз повторять? Я бы это в шапке раздела написал. Если пишите код типа FPC, хоть и в IDE PascalABC.NET — вы получите .NET-овский ответ. Хотите на свой уровень кода — идите в раздел Free Pascal, если же не боитесь начать работать с .NET — почитайте, к примеру, книгу Осипова "PascalABC.NET: введение в современное программирование".

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	04.05.2019, 15:14
	Зачем у Вас звездочки в конце некоторых строк? Уберите их все. 0

@Avar0087 0 / 0 / 0 Регистрация: 25.03.2019 Сообщений: 16
	13.05.2019, 12:24 [ТС]
	нет не это, русские и нужны. не выполняется только 2 условие 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	18.05.2019, 11:17
	Зачем дублировать темы? https://www.cyberforum.ru/post13565485.html 0

@kotAV 142 / 108 / 57 Регистрация: 15.09.2017 Сообщений: 425
	18.05.2019, 13:59
	Сколько раз повторять? Я бы это в шапке раздела написал. Если пишите код типа FPC, хоть и в IDE PascalABC.NET — вы получите .NET-овский ответ. Хотите на свой уровень кода — идите в раздел Free Pascal, если же не боитесь начать работать с .NET — почитайте, к примеру, книгу Осипова "PascalABC.NET: введение в современное программирование". 0