Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.01.2012, 22:25   #1
Вероника_94
Пользователь
 
Регистрация: 19.01.2012
Сообщений: 22
По умолчанию работа со строками (Pascal)

Ввести с клавиатуры строку символов. Программа должна определить длину введённой строки L, если длина L>10, то удаляются все цифры


uses crt;
var
st:string;
i: integer;
begin
clrscr;
writeln('введите вашу строку:');
readln(st);
for i:=1 to length(st) do begin

...

end;
write('Длина введённой строки=', length(st));
readln;
end.
Вероника_94 вне форума
Старый 25.01.2012, 23:02   #2
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Код:
var
 st:string;
 i: integer;
 begin
 clrscr;
 writeln('введите вашу строку:');
 readln(st);
 writeln('Длина введённой строки=', length(st));
 if length(st)>10 then
   for i:=length(st) downto 1 do
     begin
       if st[i] in ['0'..'9'] then
         delete(st,i,1);
     end;
 writeln('Получившаяся строка: ',st);
 readln;
 end.
Все тривиальное просто
whatever вне форума
Старый 25.01.2012, 23:39   #3
Вероника_94
Пользователь
 
Регистрация: 19.01.2012
Сообщений: 22
По умолчанию

большое спасибо)))
Вероника_94 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со строками (Pascal) Volk_xD Помощь студентам 8 17.12.2010 20:06
Pascal. Работа со строками. lisenog Помощь студентам 1 16.12.2010 15:56
Работа со строками (Pascal) SmileGirl Помощь студентам 4 22.10.2010 01:17
Работа со строками (pascal) ДиM@ Помощь студентам 3 18.04.2010 09:39
Работа со строками (Pascal) RoMaNyIL Помощь студентам 2 21.05.2009 20:39