Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
valerijarukavitsona
05.11.2020 01:51 •
Информатика
Напишите программу, которая вводит последовательность целых чисел заканчивающейся нулем и определяет, сколько двузначных чисел в последовательности.
Показать ответ
Ответ:
0010110
08.10.2020 09:03
PascalAbc.NET
var
a,k:longint;
begin
k:=0;
a:=123454;
while a <> 0 do
begin
read(a);
if (a div 10 <=9) and (a div 10 >=1) then
inc(k);
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mayerok
04.04.2020 08:17
) Каждые 5 лет население земли увеличивается на 500 000, подсчитать количество населения на следующие 10 лет, начиная от 2010го года (7 000 000 000). c++...
khinmy
26.01.2022 13:17
по информатике заранее...
dinaras44
25.06.2022 04:50
Вычислить площадь прямоугольного треугольника для заданных значений двух его сторон a и b. Составьте решение на c++!!...
А6р7с8е9н
31.01.2021 00:24
Отфильтровать сумму зарплаты меньше 4500 р. Построить гистограмму зарплаты сотрудников, на оси Х написать фамилии сотрудников/...
NASTYA8936
16.01.2022 13:24
2. Задано целое число N. Если N 7, найти сумму целых чисел в диапазоне [8..N]. Если N 7, найти сумму целых чисел в диапазоне [N..6]. Если N=7, вывести на экран соответствующее...
Дима2005Dima
16.11.2020 00:29
Последнее предложение, как это сделать, что нужно добавить на форму (Delphi), 5 вариант...
Rexmaster0
09.02.2022 10:18
Футболист, выполняя одиннадцатиметровый штрафной, нанёс удар по краю мяча. Сколько оборотов совершит мяч до пересечения линии ворот. Радиус мяча 20 см....
serezhenkoui
02.06.2022 13:48
Над полем высоко в небе словно серебряные колокольчики звенели жаворонки.В лесу заливались пеночки зяблики соловьи Всех певцов и не перечесть. Выписать слова с предлогами...
arslanovaigiz
21.05.2021 21:30
За код завдання буду дуже вдячний. ів) I. Створіть новий пакетний файл, скориставшись будь-яким текстовимредактором. Ім я пакетного файлу виберете самостійно.II. Знайдіть завдання...
erik0701
06.12.2020 05:31
1What s about this text? A .a young Kazakh girl who breaks with tradition and becomes eagle hunter. B. the daily rush and your heart C. saving the universe. 2. Who is Aisholpan...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,k:longint;
begin
k:=0;
a:=123454;
while a <> 0 do
begin
read(a);
if (a div 10 <=9) and (a div 10 >=1) then
inc(k);
end;
writeln(k);
end.