Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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
qbasic не знаю, знаю только вижуал бэйсик
for i = 1 to 10
a(i) = i
next i
for i = 1 to 5
b = a(10+1-i)
a(10+1-i) = a(i)
a(i) = b
s = 0;
for i = a to b
if (i mod 2 =1) and (i mod 3 = 0) then
s = s + 1
end if
1)никакие люди не повторят подвиг матросова!
2)все великие,учёные люди подвергались критике и злобе,но это делало их сильнее.
3)не все люди могут победить в себе страх и сдержать боль перед смертью как это сделал извейстнейший казак разин
Популярные вопросы