Объяснение:
Вот таблица, горизонтальные не принимает;)
Var
n:integer;
begin
n:=20;
while n<=320 do begin
Write(n,' ');
n:=2*n
end
end.
Результат работы
20 40 80 160 320
Ответ:
a = int(input())
b = int(input())
if a==0 and b!=0: # если a=0 и b не равен 0 , то решения
#быть не может
print("no solution") # 0 умноженное на любое число даст 0
if a==0 and b==0: # в случае же когда a и b = 0 то x может
print("many solutions") #принимать любое значение
if a!=0 and b!=0:
print ("x будет равен :" , a//b) #вывод решения уравнения
Дано:
N=101 (т.к. от 0 до 100 включительно)
K=8192
решение:
N=101 => 128=2^7 (в 7 степени), отсюда i=7бит
I=K*i=8192*7=57344 бит или = 2^13*7 бит=7кб
const
m = 10;
var
arr: array[1..m] of integer;
i, j, k,r: integer;
begin
for i := 1 to m do begin
read (arr[i]);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
for i := 1 to m do
write (arr[i]:4);
r:=arr[10]-arr[1];
write (' ',r);
writeln;
readln
end.