Ответы на вопрос:
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.
Популярно: Информатика
-
hamidullinranis07.08.2022 00:03
-
Oneheest14.05.2023 01:20
-
fox212131.05.2022 12:49
-
Amalia133727.03.2021 06:22
-
pomogitejaslomalsya05.06.2023 13:12
-
myloveislikeyou28.02.2023 20:00
-
ДобродушныйЕнот07.04.2022 19:04
-
venya0989022.01.2023 20:21
-
luya2127.07.2020 18:08
-
markthebest9523.01.2021 13:48