Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
640*480=307200
256 цветов кодируется 1-м байтом
307200 байт
512кбайт=524288 байт
не более 1 страницы
если n это количество чисел, начинаем с 3
var
i,n,p: integer
begin
readln(n);
i: =3;
p: =1;
while i< =3*n do
p: =p*i;
i: =i+3;
end;
writeln(p);
end.
если n это верхняя граница чисел
for i: =3 to n
if i mod 3 = 0 then
2 единицы в двоичной записи числа 1025
10000000001
var ch,n,i: longint;
ch1,s: string;
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
Популярные вопросы