Даны цифры числа. Собрать их в число.(ПАСКАЛЬ ТУРБО) количество элементов массива <=10000
Аноним:
Даже в строку не поместится, т.к. длина строки до 256 символов
"Собрать их в натуральное число" - в условии. Разница в том, что с натуральными числами непосредственно проводить арифметические операции, а и изображением натурального числа - нет.
""Собрать их в натуральное число" - в условии." - где?))
Так что не нужно думать, что мы тут от скуки над Вами издеваемся: мы пытаемся понять, ЧТО НАДО сделать. А уж потом будем думать, КАК ЭТО СДЕЛАТЬ.
Уже нет слова натуральное, автор внес правку 4 минуты назад
Но если допускается не натуральное - это еще хуже.
Точность представления double тоже невелика, а программа усложнится существенно.
Более того, из "собрать" вовсе не вытекает, что цифры надо брать в исходном порядке!
В общем предлагаю единственное разумное решение - просто тупо "слепить" строку из исходного array of char, пропуская в начале незначащие нули. И забыть этот страшный сон.
Моделировать различные там BigInteger смысла не вижу.
Ответы
Ответ дал:
1
Var
N,i:integer;
C:array[1..10000] of byte;
Begin
Write('Введите количество цифр: ');
ReadLn(N);
if N > 0 then
Begin
For i:= 1 to N do
Read(C[i]);
i:=1;
While (C[i] = 0)and(i<=N) do
i:=i+1;
For i:= i to N do
Write(C[i])
End;
End.
N,i:integer;
C:array[1..10000] of byte;
Begin
Write('Введите количество цифр: ');
ReadLn(N);
if N > 0 then
Begin
For i:= 1 to N do
Read(C[i]);
i:=1;
While (C[i] = 0)and(i<=N) do
i:=i+1;
For i:= i to N do
Write(C[i])
End;
End.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад