Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль
var a,i: integer;
begin
readln(a);
writeln;
for i: =1 to a do
if (a mod i=0) then writeln (i);
end.
1+2+3-4+5-6=1
1+2+3+4/5+6-7=1
1+2+3-4+5-6+7/8=1
if x< 10 then x: =10
else
if x< 15 then x: = 16
else x: = 20
для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет
1) ln(16)/ln(2) *10*10 бит
2)ln(4)/ln(2) бит
3)2*800*600*32
Популярные вопросы