Реализовать функцию, которая получает на вход число и возвращает его в другой системе счисления, согласно - id1295910720200611 от loto0192 11.06.2020 11:54

Question

Информатика: Реализовать функцию, которая получает на вход число и возвращает его в другой системе счисления, согласно алфавиту «012». Например: get_by_alpha(1); // возвращает 1 get_by_alpha(12); // возвращает 110 get_by_alpha(123); // возвращает 11120 get_by_alpha(1234); // возвращает 1200201

loto0192 · Accepted Answer

Var a,b,i,nod:integer
Begin
a:=-1;
b:=-1;
//ввод первого числа
Writeln('Введите первое число');
While a<0 do
begin
readln(a);
if a<0 then writeln('Ввод ошибочен, повторите ввод первого числа');
end;
//ввод второго числа
Writeln('Введите второе число');
While b<0 do
begin
readln(b);
if b<0 then writeln('Ввод ошибочен, повторите ввод второго числа');
end;
//определение минимального числа
if a>b then i:=b else i:=a;
//перебор чисел от минимального до 0 (т.к. НОД не может быть больше минимального числа)
While nod=0 do
begin
i:=i-1;
if (a mod i = 0) and (b mod i = 0) then nod:=i;
end;
//вывод НОД
Writeln('НОД ', a,' и ', b, ' = ', nod);
end.

MOGZ ответил