Ну это же очень простой вопрос! Шина управления!
Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>
Программа c repeat
program bacteria_1;
var bac,min:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
repeat
bac:= bac*2;
min:= min-1
until min=0;
writeln('Стало ',bac,' бакт.');
end.
Программа с for
program bacteria_2;
var bac,min,i:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
for i:=1 to min do
begin
bac:= bac*2;
min:= min-1
end;
writeln('Стало ',bac,' бакт.');
end.
<em>Написано на языке PascalABC.NET</em>