Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gsst2004p08tcc
22.02.2021 05:49 •
Информатика
Ввести n чисел. определить сколько среди них положительных и кратных трём. результат получить в переменной k. исходные данные: n=5.
Показать ответ
Ответ:
98653240
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 оценок)
Популярные вопросы: Информатика
prozorovamary23
29.01.2020 00:50
10. определить класс с именем merto содержащую следующие поля: название начального пункта; название конечного пункта; время поездки; номер линии. методы: ввод данных...
Отличницааа5
25.01.2021 15:02
Выполните арифметические операции: 10101010 + 111 = ? 1011101 - 111 = ?...
magamedgalaev9
19.02.2021 08:59
Он состоит из 64 ячеек. 8 строк и 8 столбцов. какое минимальное количество бит требуется для кодирования координат одной шахматной доски?...
sququ1
12.01.2023 10:14
Даны действительные числа . получить квадратную матрицу порядка n:...
Kisa2Mary
29.09.2020 13:51
К основным видам информационных процессов не относят * К основным видам информационных процессов не относят *...
iragav30
15.05.2020 21:50
Классификация ПО это? системное,прикладноеи инсрументальное. Тольк системное.Только прикладне.Только инструментальное. Какое их жтих перечисленных сросео...
GrinnySmith
27.09.2021 17:15
Напишите инструкцию цикла, которая после выполнения напечатает 11 слов Сапсан ....
irinaira72rt
08.04.2020 18:11
1. Укажите операторы, используемые для ввода данных в Паскале. Да/нет read writeln readln write begin var 2. Расположите строки так, чтобы получилась программа Symma,...
яна1764
11.09.2021 23:10
Роботтын сызык бойымен козгалатын жарысының талаптары?...
Nice1111111111111
07.04.2021 07:11
Сырғымалы жолдар деген не?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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
кон