3
X v Y v -Z
1)0 v 0 v 1=1
2)1 v 1 v 1=1
3)1 v 0 v 1=1
Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
Ответ:Готово
Объяснение:
а)1010 = 24*1 + 23*0 + 22*1 + 21*0 + 20* = 16 + 0 + 4 + 0 + 0 = 20
110 = 22*1 + 21*1 + 20*0 = 4 + 2 + 0 = 6
20 x 6 = 120
Б)1110 = 23*1 + 22*1 + 21*1 + 20*0 = 8 + 4 + 2 + 0 = 14
101 = 22*1 + 21*0 + 20*1 = 4 + 0 + 1 = 5
14 x 5 = 70
в)1110 = 23*1 + 22*1 + 21*1 + 20*0 = 8 + 4 + 2 + 0 = 14
111 = 22*1 + 21*1 + 20*1 = 4 + 2 + 1 = 7
14 x 7 = 98
{ 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр.}
var
units: integer;
value, factor: real;
begin
write('Введите значение - '); readln(value);
write('Введите единицу измерения - '); readln(units);
case units of
1: factor := 0.1;
2: factor := 1000;
3: factor := 1;
4: factor := 0.001;
5: factor := 0.01;
else
factor := 1;
end;
writeln(value * factor, ' м');
end.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.