Предмет: Информатика,
автор: Sasha346
Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задаётся вторым параметром (от 2 до 10). Pascal!
Ответы
Автор ответа:
0
var s1:string;
N,a:integer;
BEGIN
write('Введите число в 10-ой системе счисления: ');
readln(N);
write('Введите новое основание системы счисления: ');
readln(a);
s1:='';
while N<>0 do begin
if N mod a<=9 then s1:=inttostr(N mod a) + s1;
N:=N div a;
end;
write('Число в новой системе счисления: ');
writeln(s1);
end.
Похожие вопросы
Предмет: Физкультура и спорт,
автор: ilnursabirzanov47
Предмет: Математика,
автор: fieriameigids
Предмет: Русский язык,
автор: mamont2326
Предмет: Математика,
автор: КиберЛучший
Предмет: История,
автор: asunatyun5