30 БАЛЛОВ!
Напишите программу на паскале, пожалуйста!
Дано неотрицательное целое N. Найти сумму и количество цифр в
системе счисления с основанием q.
q=2
Ответы на вопрос
Ответил huston81
0
Ответ:
var
i, p, n, q, sum: integer;
a : array[1..1000000] of byte;
begin
Write('Введите число N: ');
ReadLn(n);
Write('Введите основание системы счисления q: ');
ReadLn(q);
p := n;
while p > 0 do
begin
i := i + 1;
a[i] := p mod q;
sum := sum + a[i];
p := p div q;
end;
Write(n,'(10) = ');
for p := i downto 1 do
Write(a[p]);
WriteLn('(', q, ')');
WriteLn('Сумма цифр полученного числа равна ', sum);
WriteLn('Количество цифр полученного числа равна ', i);
end.
Объяснение:
Новые вопросы
Английский язык,
2 года назад
Русский язык,
2 года назад
Физика,
2 года назад
Қазақ тiлi,
2 года назад
Математика,
8 лет назад