Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
рождения 30.05.95
300
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.
само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.
(12-3): (4+5)=1
1х2х3-4+5-6=1
(12: 3+4+5): (6+7)=1
(1+2-3+4+5+6-7): 8=1
Популярные вопросы