Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
HIppen
04.01.2021 20:23 •
Информатика
Составить программу, которая обеспечит ввод 15 чисел и определит сколько из них отрицательных, которые кратны 3.
Показать ответ
Ответ:
magnatca
04.10.2020 19:44
Var a,i,k:integer;
begin
k:=0;
writeln('Введите 15 целых чисел:');
for i:=1 to 15 do
begin
readln(a);
if (a<0)and(a mod 3 = 0) then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Введите 15 целых чисел:
75
-65
15
-68
28
-42
80
-76
51
-32
18
-16
-45
70
-65
k = 2
0,0
(0 оценок)
Популярные вопросы: Информатика
20070503nastia
04.08.2021 16:42
:объём сообщения равен 11кбайт,сообщение содержит 11264 символа,какова мощьность алфавита?...
7kotik7myr7myr7
19.02.2022 13:57
Жил-был маленький бегемотик. и была у него лягушка – такая зелёная и сказочная. опустишь её в траву, а она прыг, прыг, прыг, прыг… и комара слопает. комар тоже был сказочный....
bocmanlera
02.12.2021 22:20
1.Если нажать на клавишу с изображением цифры при нажатой клавише Shift, то будет введён(какой символ?) 2. Лампочка Caps Lock на клавиатуре показывает Если включена лампочка...
ДасяLove13
21.02.2023 01:52
Дана программа. Определить результат выполнения. program N02; const A: array [1..6] of integer = (16,1,8,2,4,4); var i,k: integer; begin k:=0; for i:=2 to 6 do if A[i-1] =A[i]...
bmorextreme
27.08.2021 06:04
5. Как отобразить на экране HTML-документ?...
jenkatimosh
30.06.2022 00:40
К иной (ненормативной) официальной правовой информации можно отнести: акты официального разъяснения ненормативные акты общего характера правоприменительные акты...
Эвджен
30.06.2022 00:40
Если значение коэффициента платеже долго обязательств к активам (LTD/ТА) будет близко к 1, то это значит, что предприятие...
yuliya226
30.06.2022 00:40
Метод композиции при исследовании социально-экономических и политических процессов заключается в объединении в иерархически упорядоченную...
Настя2000о
30.06.2022 00:40
Если предприятие реализовало продукцию в апреле, а деньги за проданный товар получило в мае, то … прибыль уменьшится из-за инфляции...
yarik28032001
30.06.2022 00:40
Значение коэффициента абсолютной ликвидности рано 0,25. Как изменится это значение, если увеличить сумму счетов к оплате (дебиторскую задолженность)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
k:=0;
writeln('Введите 15 целых чисел:');
for i:=1 to 15 do
begin
readln(a);
if (a<0)and(a mod 3 = 0) then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Введите 15 целых чисел:
75
-65
15
-68
28
-42
80
-76
51
-32
18
-16
-45
70
-65
k = 2