М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
VerochkaL86V
VerochkaL86V
01.04.2020 06:07 •  Информатика

Как изменить программу чтобы в тексте удалить все знаки препинания? ​

👇
Ответ:
Arinkaah
Arinkaah
01.04.2020

var s,p: string;

i: integer;

begin

write('Введите текст: ');

readln(s);

p:=s;

for i:=1 to length(s) do

if (s[i]='.') or (s[i]='!') or (s[i]='?') or (s[i]=',')

then delete(p,pos(s[i],p),1);

write('результат: ',p);

end.

4,4(51 оценок)
Открыть все ответы
Ответ:
Виртуальное общения - знакомая ситуация для нашего времени. Люди знакомится в социальных сетях, общаются, иногда встречаются реальной жизни.
Это может быть полезным - пообщаться с человеком, который тебя не знает, услышать его непредвзятое мнение. Сеть дает расслабиться.
Ты можешь быть кем угодно, с какой угодно внешностью и характером.
Это дает свободу мошенникам и разнообразным шутникам, которым нечего делать, кроме как издеваться над людьми. В этом заключается вред виртуального общения - ты не знаешь с кем переписываешься.
Я не против такого общения, но нужно быть осторожным.
4,4(71 оценок)
Ответ:
stepazhdanov2
stepazhdanov2
01.04.2020
1 2 3 4 5 6 7 program proba; uses crt, graph; var begin write('hello'); readln; end.при alt+F5
выводит черный экран, и ждет нажатия любой клавиши.
Как будто readln работает а writeln нет.
Сначало пробовала TP7, потом попробовала BP7, ситуация и там и там одинаковая.
Раньше, где-то пол года назад все работало.
А сейчас просто черный экран.

И программы написанные раньше также
 не работают, черный экран и все.
Может кто сталкивался с подобным.
На компе также установлен, delphi3, и delphi7.
Только в университет работу нужно сдавать именно в паскале.
4,8(94 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ