Ответ:
chislo1 = int(input("Введите число а "))
chislo2 = int(input("Введите число b "))
while chislo1 != 0 and chislo2 != 0:
if chislo1 > chislo2:
chislo1 = chislo1 % chislo2
else:
chislo2 = chislo2 % chislo1
print(chislo1 + chislo2)
Объяснение:
НОД числа:
берутся два числа. большее число = остаток от деления большего на меньшее. Затем опять большее число (может быть уже второе) = остаток от деления большего на меньшее, и так до тех пор, пока одно из них не станет равно 0. И выводится большее число. В случае если числа равны друг другу, находится остаток от деления второго числа на первое: 0, и выводится первое число. Т.е всё работает.
<span><span>var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do s:=s+k+i;
writeln(s)
<span>end.
</span></span>
var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do s:=s+k+i;
writeln(s/(n+1))
<span>end.
</span>
var r,n,i,p:integer;
begin
readln(r,n);
p:=1;
for i:=0 to r do p:=p*(n+i);
writeln(p)
<span>end.
var r,i,p,x:integer;
begin
readln(r);
x:=1;
for i:=1 to r do
begin
x:=x*i;
p:=p+x;
end;
writeln(p)
<span>end.
var r,i,p,x:integer;
begin
readln(r);
p:=1;
for i:=1 to r do
begin
x:=x+i;
p:=p*x;
end;
writeln(p)
<span>end.
var m,n,t,i:integer;
begin
readln(t);
writeln('N':3,'M':5);
for i:=1 to (t div 2) do
begin
n:=i*2;
m:=sqr(n)-n;
writeln(n:3,m:5);
end;
<span>end.
var
y,m,n,i:integer;
x:real;
begin
readln(n,m);
writeln('Y':3,'X':10);
for i:=1 to m do
begin
y:=n*i;
x:=sqr(y)*(sqr(y)-y)/y;
writeln(y:3,x:10);
end;
<span>end.</span></span></span></span></span></span>
1 бит
8бит=1 байту
1024 байт=1 килобайту
1024 килобайт=1 мегабайту
1024 мегабайт =1 гигабайту
1024 гигабайт=1 терабайту
