| ← Декабрь 2015 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|
7
|
11
|
12
|
13
|
|||
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 188296: Здравствуйте! У меня возникли сложности с таким вопросом: 1. Напишите программу, подсчитывающую количество букв во введенном с клавиатуры слове. Ввод осуществляйте в цикле while do. Выход из программы – строка «999». (BPascal)... Консультация # 188300: Здравствуйте! У меня возникли сложности с таким вопросом: Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ.(BPascal)... Консультация # 188301: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Напишите программу, определяющую число слов в строке. Одно слово от другого отделяется одним пробелом.(BPascal) ... Консультация # 188302: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Напишите программу, которая подсчитывает стоимость телеграммы, текст которой вводится с клавиатуры.(BPascal)... Консультация # 188303: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове чаще.(BPascal)... Консультация # 188305: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах.(BPascal)... Консультация # 188307: Зд равствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Напишите программу, удаляющую из слова i-ю букву.(BPascal)... Консультация # 188308: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Напишите программу, удаляющую из текста все буквы, совпадающие с его последней буквой.(BPascal)... Консультация # 188310: Здравствуйте! У меня возникли сложности с таким вопросом: Напишите программу, удаляющую из слова X все буквы, которые встречаются в слове Z.(BPascal)... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 02.12.2015, 16:19 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Приложение:
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 02.12.2015, 16:29 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
begin
write('Enter string:');
readln(a);
while length(a)>1 do
begin
writeln(a);
delete(a,1,1);
end;
writeln(a);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:30 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:integer;
begin
write('Enter string:');
readln(a);
while pos(' ',a)>0 do
delete(a,pos(' ',a),1);
while pos(' ',a)>0 do
begin
inc(b);
delete(a,1,pos(' ',a));
end;
if length(a)>0 then inc(b);
writeln('result:',b);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 02.12.2015, 16:35 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:integer;
c:real;
begin
write('Enter text:');
readln(a);
write('Enter price:');
readln(c);
while a[1]=' ' do{начальные пробелы}
delete(a,1,1);
while pos(' ',a)>0 do{двойные пробелы}
delete(a,pos(' ',a),1);
while pos(' ',a)>0 do{считаем слова}
begin
inc(b);
delete(a,1,pos(' ',a));
end;
if length(a)>0 then inc(b);
writeln('result:',b*c:10:2);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 02.12.2015, 16:35 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c,d:integer;
begin
write('Enter text:');
readln(a);
repeat
inc(d);
if a[d]=a[1]then inc(b);{считаем первую}
if a[d]=a[length(a)]then inc(c);{считаем последнюю}
until d=length(a);
if b>c then write(1){выводим результат}
else if c>b then write(length(a))
else write('=');
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:37 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c,d:integer;
begin
write('Enter text:');
readln(a);
repeat
inc(d);
if (a[d]='o')and(not odd(d))then inc(b);{}
until d=length(a);
write('result:',b);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:39 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:integer;
begin
write('Enter string:');
readln(a);
write('Enter number:');
readln(b);
delete(a,b,1);{удаляем из слова i-ю букву}
writeln('Result:',a);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 02.12.2015, 16:39 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b:char;
begin
write('Enter string:');
readln(a);
b:=a[length(a)];{берем последнюю букву}
while pos(b,a)>0 do{повторяем пока есть буква}
delete(a,pos(b,a),1);{удаляем букву}
writeln('Result:',a);
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 02.12.2015, 16:41 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a,b:string;
begin
write('Enter string:');
readln(a);
write('Enter string:');
readln(b);
while length(b)>0 do{пока есть символы в строке Z}
begin
while pos(b[1],a)>0 do{пока есть символ в строке Х}
delete(a,pos(b[1],a),1);{удаляем символ}
delete(b,1,1);{удаляем символ}
end;
writeln('Result:',a);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
