Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
640*480=307200
256 цветов кодируется 1-м байтом
307200 байт
512кбайт=524288 байт
не более 1 страницы
Популярные вопросы