Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,c,d,x,res: integer;
begin
readln(x);
a: =x div 1000;
b: =x mod 10;
c: =x div 100 mod 10;
d: =x mod 100 div 10;
res: =a+b+c+d;
writeln(res);
readln;
end.
1-я строка имеет длину 1
2-я - 3
3-я - 7
4-я - 15
5-я - 31
6-я - 63
7-я - 127
8-я - 255
9-я - 511 = 8я+8я+i
причем символы с 1 по 255 это первая 8-я строка символы с 256 по 511 это 2-я 8-я строка и символ i
8-я строка это две 7-х строки и символ h
каждая строка в начале имеет предыдущие строки таким образом в начале 8-й строки стоит символ a и далее так как в 4-й строке написано
графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит
var kol,a,b,c: longint;
read(a,b,c);
if a< 0 then kol: =kol+1;
if b< 0 then kol: =kol+1;
if c< 0 then kol: =kol+1;
write(kol);
Популярные вопросы