Язык программирования pascal
дано число ch в десятичной системе исчисления. написать программу, которая переводит число в систему исчисления с основанкм m.
технічні умови: программа читает с клавиатуры в первой строке число m (2≤m≤16) , во второй - число ch (0≤ch≤2+109) . программа выводит на экран ответ в виде текстовой строки.
пример:
ввод:
16
1024
вывод:
400
я то программу сделал, она работает(вроде), но на сайте для проверки пишет что не все значения подходят сделать с нуля программу(я сам найду у себя ошибку) или указать в каком месте я ошибся.
моё решение на фото.
Lizzkkaa
3
15.11.2019 20:29
0
Другие вопросы по теме Информатика
алпплла
16.03.2022 18:36
liana200671
16.03.2022 18:13
МагистрЕдаа
05.05.2021 17:47
Keklo12
21.11.2020 13:34
kbbekvwo
21.11.2020 13:46
rabadanovaasya
08.10.2019 17:50
pridanivdanil
08.10.2019 17:50
волшебство5
08.10.2019 17:50
И55373919
04.09.2019 12:50
Популярные вопросы
- Какие признаки и народной сказки в сказке спящая царевна...
1 - Восстановите пропуски в уравнениях реакций, не изменяя коэффициентов: 2koh...
3 - Підібрати синоніми до поданих фразеологізмів: хоч кілок на голові теши; спати...
1 - Два поезда вышли одновременно из двух городов на встречу друг другу.каждый...
2 - )) тема 2. линейная функция 1 - вариант 1). какие из пар чисел (-1; 3 ),...
2 - Решите столбиком 9015-128*54+48633*39=...
1 - X(x-7)-18 7(9-x) решить неравенство, надо...
3 - Составить звуковую схему слова капитан...
1 - Complete the text with the words below . вот слова: action,active,actress,characters,does,flying,generous,plays,charity,working....
2 - Футболка стоила 800 рублей. затем цена снижена на 15%. сколько рублей сдачи...
2
const s:string='0123456789ABCDEF';//цифры СС
var n,m,ch:integer;
r:string;
begin
write('Введите число в 10 СС: ');
readln(ch);
write('Введите СС: ');
readln(m);
write('В ',m,' CC число ',ch);
if ch=0 then r:='0' else r:='';
while ch>0 do
begin
r:=s[ch mod m + 1]+r;//берем остаток от деления на CC и эту цифру пишем в начало строки
ch:=ch div m;//берем целое от деления на CC
end;
write(' равно ',r)
end.