Задача №2
uses crt;var x,i: integer; begin cls; write('x= '); readln(x); for i:=1 to x do if (x mod i)=0 then writeln(i);<span>end.
Задача №1
uses crt;var x,a,b,c,i: integer; begin cls; for i:=100 to 999 do begin a:= i div 100; b:= (i - a*100) div 10; c:= (i - a*100 - b*10); if (a+b+c)*(a+b+c)*(a+b+c)=i then begin writeln(i); inc(x); end; end; if x=0 then write('Такого числа нет');<span>end.
Задача №3
uses crt;var x,a,b,i: integer; begin cls; for i:=10 to 99 do begin a:= i div 10; b:= i - a*10; if a=(b*2) then writeln(i); end;<span>end.</span></span></span>
Если без циклов то
program fifteen;
begin
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
end.
Если циклы уже прошли
program fifteen;
var
i:integer;
begin
for i:=1 to 15 do
writeln('Имя и фамилия');
end.
1) 12*8=96(бит)
2) 900*
*
=900*
(бит)
3) 32*1024*1024=32*
=33554432(кБайт)
4) 
=>i=5 бит
5) 
=>i=4 бит
4*10=40(бит) или 5(байт)
6) 300/100=3(бит/символ)=>i=3(бит)
=8(символов)
7) 2(КБайт)=2048(Байт)
2048/2048=1(байт) => i = 8(бит)
(символов)
Потому что музыка весит гораздо меньше, чем даже 3х минутное видео: у видео объем больше
Решение показано в прилагаемом файле. Формулы:
Для столбца B: =ФАКТР(A3)
Для столбца C: =СТЕПЕНЬ(LN(2);A3)
Для столбца D: =СТЕПЕНЬ($B$1;A3)
Для столбца E: =C3/B3*D3
А можно и не расписывать всё отдельно, а сразу вычислять в столбце B очередное слагаемое.
