Составьте программу, заменяющую «yes» на «no» в предложении. Помогите пожалуйста!!! Срочно!!!!

Вопрос школьника по предмету Информатика

Составьте программу, заменяющую «yes» на «no» в предложении. Помогите пожалуйста!!! Срочно!!!!

Ответ учителя по предмету Информатика

var s: string; p: integer;

begin

s := ‘no or yes?’;

if Pos(‘yes’, s) > 0 then

begin

p := Pos(‘yes’, s);

Delete(s, p, 3);

Insert(‘no’, s, p);

end;

end.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей