Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:
1.абек 2.авек 3.агк 4.агжк 5.аджк 6.абвек 7.абвгк 8.абвгжк 9.адгк
объяснение:
1.абек 2.авек 3.агкк 4.аджк 6.абвек 7.абвгк 8.адгк 9.авгк 10.авк
думаю, что 19,5 кб = 0,019 мб.
паскаль:
uses crt;
var a,b: string; \ а-слово ,b-символ
i: integer; \ переменная для счета
begin
writeln ('слово и символ');
readln (a,b); \\ввод данных
for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а и сравнение каждого с символом b. вывод ответа. или ответов
readkey; \\если символы в слове повторяются
end.
Популярные вопросы