// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
function aToDec(n:string;k:integer):integer; // Перевод из системы по основанию k в десятичную begin var s:='0123456789ABCDEF'; Result:=0; var pa:=1; for var i:=Length(n) downto 1 do begin Result+=pa*(Pos(n[i],s)-1); pa*=k end end;
function DecToa(n,k:integer):string; // Перевод из десятичной системы в систему по основанию k begin Result:=''; while n>0 do begin var r:=n mod k; if r<10 then Result:=r+Result else Result:=Chr(Ord('A')+r-9)+Result; n:=n div k end end;
function AtoB(s:string;A,B:integer):string; // Перевод из системы по основанию A в систему по основанию B begin Result:=DecToa(aToDec(s,A),B) end;
begin var n:=ReadlnString('Какое число перевести?'); var (a,b):=ReadInteger2('Исходное и результирующее основания:'); Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')'); end.
Пример Какое число перевести? 2018 Исходное и результирующее основания: 10 16 2018(10) = 7E2(16)
Int gcd(int a, int b){ return b ? gcd(b, a%b) : a; } Это красивая реализация в виде тернарной строчки. Рекурсивная функция.
int gcd(int a, int b){ if (b) return gcd(b, a%b); else return a; } Это тоже рекурсивная функция, просто не с тернарной строчкой, а с ифом.
int gcd(int a, int b){ while (b){ swap(a,b); b%=a; } return a; } Это реализация циклом. Нерекурсивная функция.
Вот, среди них можешь выбрать любую функцию, которая тебе больше нравится. Теперь программа. #include<iostream> using namespace std; int gcd(int a, int b){ //скопипастишь любую понравившуюся } int main(){ int a,b,c,d; cin>>a>>b>>c>>d; cout<<gcd(gcd (a,b), gcd(b,c)); return 0; }
// Внимание! Если программа не работает, обновите версию!
function aToDec(n:string;k:integer):integer;
// Перевод из системы по основанию k в десятичную
begin
var s:='0123456789ABCDEF';
Result:=0;
var pa:=1;
for var i:=Length(n) downto 1 do begin
Result+=pa*(Pos(n[i],s)-1);
pa*=k
end
end;
function DecToa(n,k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
Result:='';
while n>0 do begin
var r:=n mod k;
if r<10 then Result:=r+Result
else Result:=Chr(Ord('A')+r-9)+Result;
n:=n div k
end
end;
function AtoB(s:string;A,B:integer):string;
// Перевод из системы по основанию A в систему по основанию B
begin
Result:=DecToa(aToDec(s,A),B)
end;
begin
var n:=ReadlnString('Какое число перевести?');
var (a,b):=ReadInteger2('Исходное и результирующее основания:');
Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')');
end.
Пример
Какое число перевести? 2018
Исходное и результирующее основания: 10 16
2018(10) = 7E2(16)
return b ? gcd(b, a%b) : a;
}
Это красивая реализация в виде тернарной строчки. Рекурсивная функция.
int gcd(int a, int b){
if (b)
return gcd(b, a%b);
else
return a;
}
Это тоже рекурсивная функция, просто не с тернарной строчкой, а с ифом.
int gcd(int a, int b){
while (b){
swap(a,b);
b%=a;
}
return a;
}
Это реализация циклом. Нерекурсивная функция.
Вот, среди них можешь выбрать любую функцию, которая тебе больше нравится. Теперь программа.
#include<iostream>
using namespace std;
int gcd(int a, int b){
//скопипастишь любую понравившуюся
}
int main(){
int a,b,c,d;
cin>>a>>b>>c>>d;
cout<<gcd(gcd (a,b), gcd(b,c));
return 0;
}
Удачи❤