Program n1;
var a,b: integer;
begin
a:=-3;
b:=11;
while a<=4 do
begin
a:=a+2;
b:=b-1;
end;
while b>0 do
begin
b:=b-1;
a:=a+1;
end;
writeln(a);
end.
//скомплировал, компилятор выдал а=12;
Одномерный массив 1. Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. 2. Составьте блок-схем
ТарасоваКсю
3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.
Сначала переводим 8-чное число 5237 в двоичное = 5237(8) = 101010011111(2). Дальше справа налево проставляем в даоичном числе числа, начиная с нуля:
101010011111
11 10 9 8 7 6 5 4 3 2 1 0 (на фото лучше было бы видно, сорри). И если на каком-то месте стоит 1, то возводим 2 в соотвествующую степень. Получаем 2^11 + 2^9 + 2^7 + 2^4 + 2^3 + 2^2 + 2^1 + 2^0 = 2719(10)
1) 0(False, ложь)
2)1(True, правда)