Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 210
Программа
var a,n,a1:integer;
b,a2:string;
begin
writeln('Введите число в десятеричной системе счисления:');
read(a);
writeln('Введите систему счисления для переводы:');
read(n);
while a>1 do begin a1:=a mod n;
writeln(a1);
str(a1,a2);
b:=a2+b; a:=a div n; end;
b:='1'+b;
writeln(b); end.
var a,n,a1:integer;
b,a2:string;
begin
writeln('Введите число в десятеричной системе счисления:');
read(a);
writeln('Введите систему счисления для переводы:');
read(n);
while a>1 do begin a1:=a mod n;
writeln(a1);
str(a1,a2);
b:=a2+b; a:=a div n; end;
b:='1'+b;
writeln(b); end.
