| ← Декабрь 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 (Паскаль)
Консультация # 188297: Здравствуйте! Прошу помощи в следующем вопросе: 2. Дано натуральное число n и символы s1, s2, …, sn. Подсчитать сколько раз среди данных символов встречается символ +. (BPascal)... Консультация # 188298: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: 3. Дано натуральное число n и символы s1, s2, …, sn. Подсчитать количество встречающихся символов *. (BPascal)... Консультация # 188299: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Дано натуральное число n и символы s1, s2, …, sn. Выяснить, каких символов больше + или *. (BPascal)... Консультация # 188306: Здравствуйте! Прошу помощи в следующем вопросе: Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую фамилию ученика и его инициалы.(BPascal)... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 02.12.2015, 16:26 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
s:string;
a,b:integer;
begin
write('Enter string:');
readln(s);
a:=1;
while a<=length(s) do{в цикле пока меньше}
begin
if s[a]='+'then inc(b);{проверяем условие}
inc(a){следующий символ}
end;
write('Result:',b);{выводим результат}
end.
Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:27 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
s:string;
a,b:integer;
begin
write('Enter string:');
readln(s);
a:=1;
while a<=length(s) do{пока меньше}
begin
if s[a]='*'then inc(b);{проверяем условие}
inc(a){следующий символ}
end;
write('Result:',b);{выводим результат}
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 02.12.2015, 16:28 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
s:string;
a,b,c:integer;
begin
write('Enter string:');
readln(s);
a:=1;
while a<=length(s) do{пока меньше}
begin
if s[a]='+'then inc(b);{считаем плюсы}
if s[a]='*'then inc(c);{считаем звездочки}
inc(a)
end;
if b>c then write('+',b:3){выводим результат}
else
if b=c then write('=',b:3)
else write('*',c:3);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 02.12.2015, 16:38 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal): var
a:string;
b,c:integer;
begin
write('Enter string:');
readln(a);
b:=pos(' ',a);{заменяем пробел для поиска втопрого}
a[b]:='.';{ставим точку}
c:=pos(' ',a)+1;{ищем второй прбел}
a[b]:=' ';{востанавливаем пробел}
a[b+2]:='.';{формируем инициалы}
a[b+3]:=a[c];
a[b+4]:='.';
delete(a,b+5,length(a));
write('Result:',a);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
