Home
О нас
Products
Services
Регистрация
Войти
Поиск
nickitastalmakp0nvew
@nickitastalmakp0nvew
August 2022
1
14
Report
Помогите. Ошибка в pascalABS, просто скажите что не так.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
pacixor
Var
x, ch: string;
i: integer;
begin
write('Введите предложение: '); readln(x);
ch := 'c';
while Pos(ch, x) <> 0 do
Delete(x, Pos(ch, x), Length(ch));
writeln(x);
end.
2 votes
Thanks 1
nickitastalmakp0nvew
Я заменил x:= 'cTestTestcTestc'; на read (x) и всё тоже самое.
nickitastalmakp0nvew
Там смотря сколько 'с' в слове, если 3 то все норм, а если нет то ошибка.
pacixor
Подругому сделал. Смотри.
nickitastalmakp0nvew
Теперь идеально. Спс!
×
Report "Помогите. Ошибка в pascalABS, просто скажите что не так..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
x, ch: string;
i: integer;
begin
write('Введите предложение: '); readln(x);
ch := 'c';
while Pos(ch, x) <> 0 do
Delete(x, Pos(ch, x), Length(ch));
writeln(x);
end.