| ← Декабрь 2019 → | ||||||
|
3
|
4
|
5
|
||||
|
9
|
10
|
11
|
12
|
15
|
||
|
16
|
19
|
20
|
21
|
22
|
||
|
23
|
26
|
28
|
29
|
|||
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 09.12.2019, 13:59 Консультирует Gluck (10-й класс): Здравствуйте, bodya! Код (Pascal) :: выделить код program
Sogl_No;
procedure Task;
const
t1: set of char = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
var
s, t: string;
i: integer;
begin
readln(s);
i := pos('.', s);
delete(s, i, length(s) - i + 1);
s := s + ',';
t := s;
for i := ord('а') to ord('я') do {for each char}
if not (chr(i) in t1) then
begin
while pos(',', s) <> 0 do
if pos(chr(i), copy(s, 1, pos(',', s))) = 0
then delete(s, 1, pos(',', s))
else break;
if s = '' then write('', chr(i));
s := t;
end;
end;
begin
Task;
writeln();
writeln('Нажмите Enter -> для выхода');
readln;
end.Ответ не верный: 20 букв передают согласные звуки (б, п, в, ф, д, т, з, с, ж, ш, ч, ц, щ, г, к, х, м, н, л, р) 10 букв передают гласные звуки (а, э, о, ы, и, у, я, е, ё, ю) 33-и буквы не равно 20+10
Консультирует mklokov (8-й класс): Здравствуйте, bodya! Код :: выделить код
var
s, alphabet: string;
i, p: integer;
begin
alphabet:='бвгджзйклмнпрстфхцчшщ';
read(s);
for i:=1 to length(s) do
begin
p:=pos(s[i], alphabet);
if p<>0 then
delete(alphabet, p, 1);
end;
write(alphabet)
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: | В избранное | ||
