 |
|
|
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 |
