tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
На pascal. по информатике:
На pascal. по информатике: дана последовательность из 16 чисел(числа вводятся с клавиатуры). подсчитать количество чисел оканчивающихся на шесть.
artik12042003
3 22.07.2019 06:20
0
Ответы
anastasiab200
03.10.2020 10:20
Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Iiwang6666
30.08.2019 04:00
Заполнить массив нулями, кроме первого и последнего элементов, которые должны быть равны единице....
7Оля8
03.10.2019 01:20
Запишите число 2df из шестнадцатеричной в десятичную систему счисления! представьте число 211,68 (десятичная система) в системе счисления с основанием 5....
Пони20171
08.06.2019 12:30
1. какая функция называется тождественно-истиной? 2. логическая операция конъюнкция : определение, таблица истинности. 1. по заданной логической функции построить логическую...
eleonora1306200
08.07.2019 09:50
Развёрнутая форма числа 101001 в семиричной системе...
edsrghhythg
08.07.2019 09:50
Вводится 20 чисел от 1 до 20. если число четное,то вывести его синус,если нечетное то косинус....
Saanna
14.01.2021 20:05
Какие из операций выполняются только для целочисленных операндов? A+B A*B A mod B A div B Какая из стандартных функций возвращает квадратный корень числа x? sin(x) abs(x)...
spiner21
24.04.2020 13:30
Ф.А. Абрамов «О чем плачут лошади» ответить на во Как раскрывается экологическая тема в произведении?...
незнайка1183
24.04.2020 13:30
Знайди сторону квадрата,діагональ якого дорівнюєкоринь 32. У відповідь запиши тільКИ ЧИСЛО....
Sukhareva1509
24.04.2020 13:30
Краткая характеристика климата и природы северной Евразии...
niklysov2015
24.04.2020 13:30
казахский сделать, я русский, и ни чего не понимаю. Нужно ответить на во...
Популярные вопросы
1)для приготовления римовой каши беру 3 части молока и 2 частт риса. сколько...
2
Назовите все делители числа 243. заранее ....
3
Что можно сказать об обломове по 1 части книги? 10-15 предложений...
1
Да или нет? у цианобактериях ядро в клетке к фотосинтезу, наличие клеточной...
1
Старинная мера сажень приближённо равна 152 см в летописи упоминается бревно...
1
Написать текст на тему: мой любимый день . по языку...
3
Какие вещества составляют раситетльный организм?...
1
Влияние шелкового пути на развитие ремесел...
1
Какая единица является основной единицей силы в международный системе?...
3
Пересказ древний еврейское царство ответ на вопрос...
3
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.