| ← Сентябрь 2018 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
|
17
|
18
|
19
|
21
|
22
|
23
|
|
|
24
|
25
|
26
|
27
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 193585: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Составить в PascalABC программу нахождения количества слов в предложении. Предложение состоит из слов, разделённых одним пробелом. Предложение вводится с клавиатуры.... Консультация # 193586: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Составить в PascalABC программу подсчёта слов "мама" в строке. Предложение вводится с клавиатуры.... Ко нсультация # 193587: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: В PascalABC составить программу нахождения количества слогов "ма" в строке s. Предложение вводится с экрана.... Консультация # 193592: Здравствуйте! Прошу помощи в следующем вопросе: Составьте программу, которая позволяет заменить в строке s слово t1 на t2. s, t1, t2 вводятся с клавиатуры.... Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 23.09.2018, 15:39 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a:string;
b:integer;
begin
write('enter string:');
readln(a);
b:=0;
while pos('mama',a)>0 do
begin
delete(a,pos('mama',a),4);
inc(b);
end;
writeln('result:=',b);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 23.09.2018, 16:11 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a:string;
b:integer;
begin
write('enter string:');
readln(a);
while pos(' ',a)>0 do
delete(a,pos(' ',a),1);
b:=0;
while pos(' ',a)>0 do
begin
delete(a,1,pos(' ',a));
inc(b);
end;
if length(a)>0 then inc(b);
writeln('result:=',b);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 23.09.2018, 16:13 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a,b:string;
c,d,e:integer;
begin
writeln('enter string:');
readln(a);
b:='mama';
e:=0;
for c:=1 to length(a)-1do
if a[c]=b[1]then
begin
d:=length(b);
while(d>0)and(a[c+d-1]=b[d])do
dec(d);
if d=0 then inc(e);
end;
writeln('result:=',e);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 23.09.2018, 16:14 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a:string;
function b(c,d:string):integer;
begin
if pos(d,c)>0 then
begin
delete(c,pos(d,c),length(d));
b:=1+b(c,d);
end else b:=0;
end;
begin
write('enter string:');
readln(a);
writeln('result:',b(a,'ma'));
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 23.09.2018, 21:57 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, svrvsvrv! Код (Pascal) :: выделить код var
a,b,c:string;
begin
write('enter s:');
readln(a);
write('enter t1:');
readln(b);
write('enter t2:');
readln(c);
while pos(b,a)>0 do
begin
insert(c,a,pos(b,a));
delete(a,pos(b,a),length(b));
end;
write('result:=',a);;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
