Даны цифры числа. собрать их в число.(паскаль - вопрос №7686219 от bobbobyashka1 18.10.2021 08:55

Question

Информатика: Даны цифры числа. собрать их в число.(паскаль турбо) количество элементов массива =10000

bobbobyashka1 · Answer

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.

Даны цифры числа. собрать их в число.(паскаль турбо) количество элементов массива < =10000