Даны числа числа. Собрать их в число.(ПАСКАЛЬ ТУРБО) количество частей массива

Даны числа числа. Собрать их в число.(ПАСКАЛЬ ТУРБО) количество частей массива lt;=10000

Задать свой вопрос
Велерштейн Анастасия
Даже в строчку не поместится, т.к. длина строки до 256 знаков
Яна
""Собрать их в натуральное число" - в условии." - где?))
1 ответ
Var
   N,i:integer;
   C:array[1..10000] of byte;
Begin
Write('Введите количество цифр: ');
ReadLn(N);
if N gt; 0 then
   Begin
   For i:= 1 to N do
       Read(C[i]);
   i:=1;
   While (C[i] = 0)and(ilt;=N) do
      i:=i+1;
   For i:= i to N do
       Write(C[i])
   End;
End.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт