17.05.2010, 20:31 | #1 (ссылка) |
Новичок
Регистрация: 12.04.2010
Сообщений: 8
Репутация: 0
|
Решите задачи на паскале
Помоги те пожалуйста, решите сколько сможете.
Задачи на строки. 1. Определите номер позиции, в которой в пятый раз встречается буква М в данной символьной строке. Если такой позиции нет, то сообщите количество букв М в строке. 2. Вырежьте два первых символа символьной строки и поместите их в конец данной строки. 3. Дана символьная строка «Семенов Виктор Николаевич».Напечатайте ее в виде «В.Н. Семенов». 4. Подсчитать, сколько раз в данной строке встречается буква С, вводимая с клавиатуры. 5. Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы 6. Даны две строки. Если они начинаются с одинаковых символов, то напечатать "ДА", иначе - "НЕТ" Парни, хоть что сможете решите, решается судьба человека, буду очень признателен... |
18.05.2010, 11:50 | #2 (ссылка) |
Новичок
Регистрация: 10.07.2009
Сообщений: 227
Репутация: 17
|
№2
Код:
program kk; var k,a:string; i:integer; begin a:=('Семенов Виктор Николаевич'); write(a); begin writeln; delete(a,9,25); write(a); k:=('В. Н. '); insert(k,a,1); writeln; write(a); end; end. ---------- Добавлено в 10:40 ---------- Предыдущее сообщение было написано в 10:16 ---------- №4 Код:
program kk; var l,k,a:string; m,i:integer; begin read(a); m:=0; k:=('С'); l:=('с'); for i:=1 to 255 do begin if (a[i]=k)or(a[i]=l) then inc(m); end; write('m=',m); end. ---------- Добавлено в 10:43 ---------- Предыдущее сообщение было написано в 10:40 ---------- №6 Код:
program kk; var l,k,a:string; m,i:integer; begin read(a); Writeln; Read(k); if a[1]=k[1] then write('ДА') else write('НЕТ'); end. ---------- Добавлено в 10:50 ---------- Предыдущее сообщение было написано в 10:43 ---------- №2 Код:
program kk; var l,k,a:string; m,i:integer; begin read(a); m:=length(a); Write(m); Writeln; k:=copy(a,1,2); insert(k,a,m+1); delete(a,1,3); write(a); end. |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Мои игры на Паскале. | Step-93 | Программирование | 3 | 09.03.2011 03:04 |
помогите в решении задачи | kaffein | Программирование | 2 | 25.12.2010 13:03 |
Задачки на паскале | Mitti | Программирование | 0 | 11.10.2010 13:53 |
Решите, пожалуйста, на С++ | Сидъ | Программирование | 0 | 22.05.2010 19:23 |
Мой калькулятор на Паскале. | Step-93 | Программирование | 4 | 19.01.2010 18:11 |
Clrscr в Паскале. | Step-93 | Программирование | 17 | 18.01.2010 21:45 |
Три задачи по матстатистике | Sammy | Общение по интересам | 7 | 25.12.2009 20:30 |
Задача по массивам в Паскале | ZONDO | Программирование | 5 | 24.12.2009 06:08 |
Задачи в дисметчере | $erg | Программы | 2 | 14.10.2009 00:34 |
Графическая в Паскале! | BanZa1 | Программирование | 1 | 08.06.2009 18:40 |
Задачи по Visual Basic | Sport666 | Программирование | 4 | 30.05.2009 19:30 |
2 задачи на C | Shadow | Программирование | 1 | 23.03.2009 01:10 |