Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y: real;
begin
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
end.
в десятичной:
45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33
106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65
в двоичной:
45 = 101101
106 = 1101010
50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт
10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт
program divisors;
n,i: integer;
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
Популярные вопросы