for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а и сравнение каждого с символом b. вывод ответа. или ответов
readkey; \\если символы в слове повторяются
end.
Ответ дал: Гость
февраль зимний месяц
май весенний месяц
август летний месяц
сентябрь осенний месяц
Ответ дал: Гость
мальчики плывут на тот берег
один возвращается
мама плывет на тот берег
второй мальчик возвращается
два мальчика плывут на тот берег
один возвращается
отец плывет на тот берег
второй мальчик возвращается
мальчики плывут на тот берег
Ответ дал: Гость
письменность китая похожа на египетскую письменность.
Популярные вопросы