tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны цифры числа. собрать их
Даны цифры числа. собрать их в число.(паскаль турбо) количество элементов массива < =10000
gabdrahmanova951
1 02.09.2019 07:20
0
Ответы
anyasuharevap0ai22
06.10.2020 11:26
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vanek58
12.12.2020 01:54
Что из этого является названием операционной системы? LinuxBIOSIntel...
asya1607
12.12.2020 01:54
Установите соответствие Создать форму можно добавив инструмент «Форма» на панель быстрого доступа. Для этого нужно:...
vinerxasanzyan
29.04.2019 23:17
Втаблице запросы и кол-во страниц, которые нашел поисковый сервер по этим запросам (дальше на фото)...
mariyapetrpet
30.04.2019 01:05
Python нужны ответы на первые три...
Kosmen21
05.07.2019 18:00
Петя решил выписать все натуральные числа,начиная с единицы,друг за другом.но сумел добраться только до 3210-й цифры,после чего уснул.последней цифрой,которую написал петя,была...
Alexa9711
12.02.2022 10:47
Оцени влияние роботов на современное общество...
matsakov99
12.02.2022 10:43
1 определи информационный размер изображения в байтах, если в палитре использовано 8 цветов 2 определи объем памяти видеокарты в Кбайтах необходимый для работы монитора с разрешением...
fatyaa22
12.02.2022 10:39
3. Дан массив: а = [3, -5, 8, -9, 11]. Выбери верное описание элемента со значением «8»: * а(8)a[3]a[2]a[8] ....
MiraQeen
02.03.2021 09:00
В словаре employee поменяйте зарплату сотрудника John на 300000. employee = { employee1 : { name : Sam , age : 35, salary : 400000}, employee2 : { name : Anna , age : 29, salary...
DdMirko
02.03.2021 09:01
PascalABC - uses System.Windows.Forms TabControl - TabPage - listView1 Кто объяснит почему таблица не создается ?...
Популярные вопросы
Какой водородный показатель был введен и для чего? какими символами из латинский...
2
очень русский язык (P.S ток 244 упр)...
3
Вершина холма расположена на 435 м выше уровня моря, а его основание (подошва)...
2
Найдите область определения функции у=8/2х-4...
2
стр.112 сделать краткий конспект (сделать текст в 5 раз меньше) и написать...
2
❤️Пищеварительная система мухи(2-3 предложения)...
3
Узнайте слово по его лексическому значению -Масло добываемое из растений--слегка...
3
Геометрія 7 клас лкледедрлн...
1
Названия рек Географическое положение (на каком материке, в какой части материка...
2
СКАЖИТЕ МНЕНИЕ О ВИДЕО https://youtu.be/1mRheQ5Gw0E...
3
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.