Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Полученное слово: ФОКСТРОТ
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.
(1010,01)16=1*16^3+0*16^2+1*16+0+0*16^(-1)+1*16^(-2)=4112,00390625
(f001)16= 15*16^3+1=61441
Популярные вопросы