Выберите правильный код на задание Дана строка А. В этой строке удалите все буквы «а» и выведите оставшуюся строку на экран.
247
377
Ответы на вопрос:
Вот так эту можно решить на современном паскале. но, к сожалению, так в школах не учат, заставляя тратить время и силы на громоздкие программы, в которых легко ошибиться. // pascalabc.net 3.2 begin write(readlnstring('-> ').towords.where(x-> x.left(2)='со').count) end. пример: -> три собаки сосали одну косточку 2 а вот так (примерно, потому что обычно еще хуже) учат писать программы в var s: string; i,n,k,p: integer; begin write('-> '); readln(s); if copy(s,1,2)='со' then k: =1 else k: =0; delete(s,1,3); repeat i: =pos(' со',s); if i> 0 then begin inc(k); delete(s,1,i+3) end until i=0; writeln(k) end.
Популярно: Информатика
-
danilowamariy7p06vj804.05.2023 04:06
-
danilshcherbin24.02.2023 21:33
-
sfinks9829.11.2022 08:42
-
Рита737325.06.2023 20:03
-
nastyak1211918.07.2020 10:55
-
dimabahov3320.04.2020 13:40
-
bulatnurtdinov20.02.2021 10:59
-
katushashamrova29.08.2021 21:28
-
danchik5613.02.2020 18:05
-
вселенная1301.04.2021 22:38