Строки. Удалить все символы в строке после «*»

@Яночка Лапочка · Регистрация: 24.05.2012

Студворк — интернет-сервис помощи студентам

помогите пожалуйста
1.Составьте программу, которая как только в строке встретиться символ «*», удаляет все символы в строке после «*». Выведите полученную строку на экран. Если такого символа нет, то выведите соответствующее сообщение.

2.Составить программу, которая проверяет, является ли введенная с клавиатуры последовательность символов целым числом, записанным в десятичной системе счисления.
спасибо

24.05.2012, 20:22

1.

Pascal

program string_z8;
uses crt;
var s:string;
 
begin
ClrScr;
write('введите строку:');
readln(s);
if pos('*',s)=0 then write('Simvola * v stroke net')
else
 begin
   delete(s,pos('*',s)+1,length(s)-pos('*',s));
   write(s);
 end;
 end.

@Яночка Лапочка · 24.05.2012, 20:45 **[ТС]**

спасибо большое )

@Яночка Лапочка 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 3
		1
	Строки. Удалить все символы в строке после «» 24.05.2012, 18:48. Показов* 5789. Ответов 2 Метки нет (Все метки) помогите пожалуйста 1.Составьте программу, которая как только в строке встретиться символ «», удаляет все символы в строке после «». Выведите полученную строку на экран. Если такого символа нет, то выведите соответствующее сообщение. 2.Составить программу, которая проверяет, является ли введенная с клавиатуры последовательность символов целым числом, записанным в десятичной системе счисления. спасибо 0

@Яночка Лапочка 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 3
	24.05.2012, 20:45 [ТС]	3
	спасибо большое ) 0

Опции темы

Строки. Удалить все символы в строке после «*»

Решение