Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bogdannar2013
18.06.2022 13:08 •
Информатика
Ввести n чисел. определить сколько среди них положительных и кратных трём. результат получить в переменной k. исходные данные: n=5.
Показать ответ
Ответ:
дарька4568
08.07.2020 01:38
var
k, n: byte;
t: integer;
begin
readln(n);
for i: byte := 1 to n do
begin
readln(t);
if ((t > 0) and (t mod 3 = 0)) then
k += 1;
end;
writeln(k);
end.
алг
нач
цел k, i, n, t
k := 0
ввод n
нц для i от 1 до n
ввод t
если ((t > 0) и (mod(t, 3) = 0)) то
k := k + 1
все
кц
вывод k
кон
0,0
(0 оценок)
Популярные вопросы: Информатика
Lasaolnaser
05.05.2020 19:54
Написать программу перевода Байты в биты с выводом 2 байта=16 бит...
220505b
25.04.2023 11:17
Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. определить, сколько раз последовательность поменяет знак. ограничения! нельзя использовать...
RADIUM24
01.01.2023 23:48
Объясните как работают циклы (for, while, repeat) в паскале. желательно максимально простым и понятным языком, без использования супер-заумных терминов...
AlinaMein14
26.01.2022 00:06
Решить c++ розбиття на групи степан виписує на листочку усі цілі числа від 1 до n в кілька груп, при цьому якщо одне число ділиться на інше, то вони обов язково будуть...
andreisena4ev
15.04.2022 12:38
Определи закономерность какой объект составлен по правилу...
hamidullinelnar
30.05.2022 11:23
1. рассчитайте стоимость стоматологических услуг по данным представленной таблицы.2. используйте при расчете курс доллара (взять из интернета) и процент повышения цены...
nemova1973
12.04.2022 15:32
Продолжите фразы. персональный компьютер операционная система. файл. пользователь. пользователь кий интерфейс...
ТАПОРИК
07.05.2021 09:36
Напишите программу которая вычисляет сумму первых n целых положительных чисел. количество суммируемых чисел должно выводиться во время работы программы. ниже представлен...
ммаа2
12.09.2022 07:24
1.как называется прграма которая обладает к самовоспроизведению? 2.программы,уплотняющие файлы,называют? 3....
луч16
13.10.2022 17:17
Какие языки изпользуют для создания сайтов? быстрее к.р!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k, n: byte;
t: integer;
begin
readln(n);
for i: byte := 1 to n do
begin
readln(t);
if ((t > 0) and (t mod 3 = 0)) then
k += 1;
end;
writeln(k);
end.
алг
нач
цел k, i, n, t
k := 0
ввод n
нц для i от 1 до n
ввод t
если ((t > 0) и (mod(t, 3) = 0)) то
k := k + 1
все
кц
вывод k
кон