Вопрос школьника по предмету Информатика
Напишите программу, которая удаляет из введенной строки любой введенный с клавиатуры символ.
pascal.abc
даю 50 баллов срочно!!!!!
Ответ учителя по предмету Информатика
Ответ:
Тут значительно легче без процедур решить. Вот, получайте!
program prim;
Var
s : string;
t : char;
k: integer;
begin
writeln (‘Введите строку’);
readln (s);
writeln (‘Введите символ, который надо удалить’);
readln (t);
while pos(t,s)<>0 do
begin
k:=pos(t,s);
Delete(s, k, 1);
end;
writeln (‘Результат после удаления: ‘);
writeln(s);
end.
Похожие вопросы от пользователей
?Перестроить части фигуры?)Найдите его площадь.
2) Вычислите объём призмы ,основанием которого является данный шестиугольник, а высота призмы равна 8 см 5 мм
1,БРОШЮРА
2,ЖОКЕЙ
3,ЛЕКСИКОН
4,ИЗМОРОСЬ
a. очень мелкий дождь
б,запас слов и выражений человека
в,професиональный наездник на скачках,бегах
г небольшая книжка
д,похожий на иней осадок,образующийся на ветках деревье,проводах
Помогите пожалуйста завтра контрольная, а не знаю как решать такие примеры