function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.
Нельзя более 5000 символов, поэтому просто дам ссылку http://school-25.ru/informatika/uch_8kl_sem/04.html
в скобках будут основания СС
241(10)=х(240)
241 столбиком делите(да, прям так и пишете), получается остаток 1 и последнее число(в делении столбиком - под 240,которое является еще основанием) - 1.
ответ: 241(10)=11(240)
короче столбиком примерно так будет выглядеть, легче уж написать
....241|_240_
-_240|1
.......1
7200 Кбайт = 7200*1024 байт = 7200*1024*8 бит
Время передачи = 7200*1024*8/196608 = 300 сек = 5 мин
Program n1;
Uses CRT;
Var k,i: integer;
begin
k:=1;
For i:=1 to 10 do
k:=k*i;
writeln(k);
end.
блок-схема вложена.
Записи в блоках (по порядку сверху вниз):
- начало
- K:=1;
i:=1 to n
k:=k*1
k
ну и снизу разумеется конец программы в овале, забыла дорисовать.