Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lolagrigoreva
01.01.2020 15:39 •
Информатика
Написать ! pascalabc. введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.
Показать ответ
Ответ:
Tillll
12.07.2020 06:18
Var a: array [1..5] of integer; i, amount: integer;
begin
read(a[1], a[2], a[3], a[4], a[5]);
amount := 0;
for i := 1 to 5 do
begin
while a[i] >= 10 do
begin
a[i] := a[i] div 10;
end;
if a[i] = 8
then
amount := amount + 1;
end;
writeln(amount);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Aieks01
30.01.2020 05:06
Запись числа 210(по 5-ричной сс) в некоторой системе счисления выглядит так: 313n. найдите основание системы счисления n....
denic311
11.08.2022 11:13
Скласти алгоритм для обчислення значень функції для заданих N значень змінної функції. (В виде блок схемы)...
Wkdj13737
04.04.2021 01:18
Шифр цезаря на сколько надо отступить букв...
Marinap0385
26.07.2021 11:26
Комплекс взаимосвязанных программ, предназначенных для управления компьютером, называется...
Fjk123cg
22.07.2022 22:10
Используя вс алгоритмы, запрограммируйте в среде графического исполнителя Чертёжник рисование следующих фигур...
Aina64
07.03.2021 12:40
Опишите определение Вами алгоритма ...
Tamalova5
26.09.2022 01:16
Каковы сходства и различия между составными и вложенными условиями в языке Python?...
vika2075
05.04.2020 20:56
Паскаль! дан массив размера n. вывести его элементы в обратном порядке....
ArianTop
14.02.2021 16:27
Переведите,,не с переводчиком 1. если у вас будет возможность осмотреть достопримечательности лондона, посмотрите здание королевской биржи. 2. - как мне доехать до...
lida105
14.02.2021 16:27
Всем добра кто : d решите уравнение х-4/5=9+2х+4/9...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a[1], a[2], a[3], a[4], a[5]);
amount := 0;
for i := 1 to 5 do
begin
while a[i] >= 10 do
begin
a[i] := a[i] div 10;
end;
if a[i] = 8
then
amount := amount + 1;
end;
writeln(amount);
end.