program t;
var
a,c:real;
i:integer;
begin
i:=1;
a:=1000;
write('1');
while(i<>6) do
begin
a:=a+a*(2*0.01);
inc(i);
end;
writeln('Спустя ',i,' месяцев =',a:4:2);
a:=1000;
i:=1;
write('2');
while(true) do
begin
a:=a+a*(2*0.01);
inc(i);
if(a>1200)then begin writeln('Через ',i); break; end;
end;
a:=1000;
c:=0;
i:=1;
write('3');
while(true) do
begin
c:=a*(2*0.01);
a:=a+c;
inc(i);
if(c>50) then begin writeln('через ',i,' месяцев'); break; end;
end;
end.
<span>Add AX,[DI] - Прибавляет к регистру AX значения по адресу DI
Mov [SI],CI - Перемещение значения из регистра CI по адресу [SI]
Mov[DI],DI - </span><span><span>Перемещение значения из регистра DI по адресу [DI]
</span>
Jmp AX - Переход к строке под номером из регистра AX
Call BX
- вызов команды под номером BX
Примерно так...
</span>
Акции ростелекома потому что разница конечной и начальной цены у неё больше чем у всех остальных
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>