Var a,b:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите цифру');
read(b);
if ((a mod 10)<>b) and ((a div 10)<>b) and (a<100) then begin
a:=a+1;
write(" ",a);
end;
end.
Var x,y,a,b:integer;
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
begin
a:=x; b:=y;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('НОД(',x,',',y,') = ',a);
end
else writeln('Ошибка ввода');
end.
Пример:
<span>x, y:
50 125
НОД(50,125) = 25</span>
Pascal
Скидываю файл, так как там действительно много кода.
<span>1 кб=1024 б
</span><span>1 мб=1024 кб=1048576 байт
</span><span>1Гб=1024 мб= 1048546
</span><span>кб=1073741824 кб</span>
79 из десятичной в двоичную 1001111
131 из десятичной в двоичную 10000011
<span>101011 из двоичной в десятичную 43
</span><span>110110 из двоичной в десятичную </span>54