Var
k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
Write(k*2-1,' ')
End.
А) Делим на 2 с остатком, пока не получится 0:
600 : 2 = 300 (ост. 0)
300 : 2 = 150 (ост. 0)
150 : 2 = 75 (ост. 0)
75 : 2 = 37 (ост. 1)
37 : 2 = 18 (ост. 1)
18 : 2 = 9 (ост. 0)
9 : 2 = 4 (ост. 1)
4 : 2 = 2 (ост. 0)
2 : 2 = 1 (ост. 0)
1 : 2 = 0 (ост. 1)
Выписываем остатки в обратном порядке:
1001011000
Это и есть ответ. Можно проверить сложением:
1001011000_2 = 2^9 + 2^6 + 2^4 + 2^3 = 512 + 64 + 16 + 8 = 600
б) Делаем тоже самое:
2010 : 2 = 1005 (0)
1005 : 2 = 502 (1)
502 : 2 = 251 (0)
251 : 2 = 125 (1)
125 : 2 = 62 (1)
62 : 2 = 31 (0)
31 : 2 = 15 (1)
15 : 2 = 7 (1)
7 : 2 = 3 (1)
3 : 2 = 1 (1)
1 : 2 = 0 (1)
Ответ: 11111011010
1)False
так как а=10,а в умове єсли a<5 то идет дале
2)а =12
3)3
4)22
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>