Procedure copy_bacterium(time:integer);
var
i, bacterium:integer;
begin
bacterium:= 1;
for i:=1 to time do
bacterium:= bacterium * 2;
writeln(bacterium);
end;
var
n:integer;
begin
readln(n);
copy_bacterium(n);
end.
Program pr;
Var a, b:real;
Write('Введите A: ') ;
Readln(a) ;
Write('Введите B: ') ;
Readln(b) ;
Writeln('Среднее арифметическое: ',(a+b)/2);
End.
1)
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец
2)х*7=>*500=>*3=>*28=>*25.4=>/10=>/10=>/10=>/1000
(((1/10)/10)/10)/1000=1/(10^6)=мм/км(для особо одаренных^^)