Жила была девочка Настя.Она очень хотела научиться рисовать.В школе на уроках все смеялись над её рисунками и от того она приходила домой и плакала.Как то раз Настя пришла домой вся заплаканная,включила компьютер и тут на экран выскочил весёлый человечек:
-Не плачь ,милая девочка!Я тебе!Я живу в твоём компьютере и всегда с умилением наблюдаю за твоими занятиями.Пойдём со мной!Не бойся !
Настя приложила свою руку к компьютеру и тут же оказалась по ту сторону экрана
Дальше, Анастасия, придумай пару предложений о путешествии их,если понравилась идея и на прощание человечек подарит Насте программу граф.редактор.И всё у неё будет хорошо
Задача 1 var s: string; i: integer; begin readln(s); for i:=2 to length(s)-2 do if (s[i-1]+s[i]+s[i+1]+s[i+2]=' не ') then s[i+1]:='и' else if ((s[i-1]+s[i]+s[i+1]='не ') and (i=2)) then s[i]:='и' else if ((s[i]+s[i+1]+s[i+2]=' не') and (i=length(s)-2)) then s[i+2]:='и'; write(s); end.
Задача 2 var s: string; i, k: integer; begin readln(s); for i:=2 to length(s)-1 do if s[i-1]+s[i]+s[i+1]=' в ' then inc(k) else if ((s[i-1]+s[i]='В ') or (s[i-1]+s[i]='в ')) and (i=2) then inc(k); write(k); end.
Жила была девочка Настя.Она очень хотела научиться рисовать.В школе на уроках все смеялись над её рисунками и от того она приходила домой и плакала.Как то раз Настя пришла домой вся заплаканная,включила компьютер и тут на экран выскочил весёлый человечек:
-Не плачь ,милая девочка!Я тебе!Я живу в твоём компьютере и всегда с умилением наблюдаю за твоими занятиями.Пойдём со мной!Не бойся !
Настя приложила свою руку к компьютеру и тут же оказалась по ту сторону экрана
Дальше, Анастасия, придумай пару предложений о путешествии их,если понравилась идея и на прощание человечек подарит Насте программу граф.редактор.И всё у неё будет хорошо