Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Selbrit
08.06.2022 02:03 •
Информатика
Составьте программу.с клавиатуры вводится 15 чисел,сколько из них оканчивается на 4
Показать ответ
Ответ:
TINAdTINA
06.10.2020 02:16
Var
A:integer;
k,n:integer;
Begin
Write('Введите 15 чисел: ');
k:=0;
For n:= 1 to 15 do
Begin
Read(A);
if Abs(A) mod 10 = 4 then k:=k+1
End;
WriteLn('Количество чисел, оканчивающихся на 4: ',k);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
слмтл
22.02.2020 05:05
Сколько букв и какого алфавита содержит зашифрованный десятичными текст: 128 32 139 32 148 32 128 32 130 32 136 32 146? какой объем памяти занимает данный текст?...
mkazancev228
18.04.2021 23:19
Перевести из двоичной системы в десятичную ! ; ) 111001 и 1011011...
Ilya333444
07.03.2020 13:27
Чим хороктеризуеться кожна величина ? ...
lanamuradyamu
22.04.2023 05:12
Тұжырымның ақиқат/жалғанын анықта. Люк-Тремо алгоритміжәне оң қол ережесі –лабиринттен шығудың екібірдей әдісі....
LERA13511
05.12.2022 21:10
Із чого може складатися ім я величини? ...
valya0603
14.07.2020 10:39
Сначала вводится кол-во чисел. затем вводятся сами числа. вывести кол-во чётные. написать в javascript....
ЛИЗАЛАРИНА
04.11.2022 23:41
Уисполнителя квадратор 2 команды возведи в квадрат вычти 2 составьте алгоритм из чисел 2 и 144 содержащий не более 5 команд...
Amalik0
25.12.2020 17:19
25 1. посчитать количество перестановок из букв слова «журналист», в которых буква «т» на первом месте, а буква «ж» - в конце слова. 2. из букв a, b, c, d, e кодировщик составляет...
mrANONIM11
15.11.2020 09:26
От ленты длинной 2 метра 40 сантиметров отрезали три восьмых её длинны. найдите длину оставшейся части...
NoirShade
15.11.2020 09:26
Скласти речення з виразами: найбільше як,нераніше як,недовше ніж?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
k,n:integer;
Begin
Write('Введите 15 чисел: ');
k:=0;
For n:= 1 to 15 do
Begin
Read(A);
if Abs(A) mod 10 = 4 then k:=k+1
End;
WriteLn('Количество чисел, оканчивающихся на 4: ',k);
End.