Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
Программа в файле
Program rtr1;Uses crt;Var a:array [1..100] of real; mx, max,min:real; max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do begin if a[i]>=max then max:=a[i]; if a[i]<=min then begin min:=a[i]; min1:=i; end; end; i:=1; while a[i]<>max do begin i:=i+1; end; max1:=i; mx:=a[max1]; a[max1]:=a[min1]; a[min1]:=mx; for i:=1 to n do write('a[',i,']=',a[i],';'); End.
Вот перевод в десятичную систему:
1110(2) = 1*2^3+1*2^2+1*2^1+0*2^0 = 8+4+2 = 14
1001(2) = 1*2^3+0*2^2+0*2^1+1*2^0 = 8+0+0+1 = 9
14+9=23
Ответ в картинке, всего хорошего.
Мне удобнее всего считать такие задачи начиная от начальной точки
А=1
1) в Б можно попасть только из А, значит Б=А=1
2) в Д можно попасть только из А, значит Д=А=1
3) в В можно попасть из А и из Б, значит В=А+Б=1+1=2
4) в Г можно попасть из А из В и из Д, значит Г=А+В+Д=1+2+1=4
дальше по тому же принципу
5) Е=Б=1
6) Ж=Д+Г=1+4=5
7) К=Е+В+Г+Ж=1+2+4+5=12
Ответ: 12