Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ghannik08
08.02.2022 15:56 •
Информатика
Вводить с клавиатуры числа, пока не будут введен 0. найти количество введенных чисел.
Показать ответ
Ответ:
HelpinEnglish
01.10.2020 11:25
Var
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
натик2017
26.03.2022 01:50
2. Почему после составления кодировочной таблицы ASCII возникла потребность в новой таблице Unicode?3. Функция в MS Excel, которая служит для вывода числового кодазаданного символа4....
mon13
14.01.2021 22:02
Фрекен бок набрала на компьютере рецепт пудинга и сохранила его в виде текста а затем забыла название файла. выберите из списка те файлы которые ей состоит попробывать открыть.Malysh....
david528
01.06.2022 05:28
Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно (такие числа будет вводить пользователь, это проверять не...
kseniayozic
06.09.2020 22:13
Вывести на экран числа от 1 до n и от n до 1 в две строки...
DimaKot2
25.02.2021 07:43
1) даны две точки a(x1 ,у1) и b(х2, y2). составить алгоритм, определяющий, которая из точек находится ближе к началу координат. 2) и картинка нужно написать программу в паскале...
mrrusarmz
26.12.2020 09:29
Определите объем видеопамяти компьютера в мегабайтах который необходим для реализации графического режима монитора с разрешающей точек и палитрой цветов из 65536 цветов. решите...
konulrzayevaa
11.10.2021 18:12
Ребусы по терминам, используваемые при работе с текстовым редактором....
Димон123467
18.08.2020 15:33
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности, а затем...
nika270106
19.03.2023 23:19
Всоставе какой надсистемы можно описать нашу планету? для каких объектов земля самая является надсистемой?...
светилек
05.06.2021 23:42
Повідомлення про види інтерфейсів операційних систем...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.