Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
podgainiyroma
22.12.2022 21:55 •
Информатика
Подсчитайте количество трехзначных чисел, кратных 13.
Показать ответ
Ответ:
ketium2oo5
08.09.2020 23:05
var i,k:integer;
begin
k:=0;
for i:=999 downto 100 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
end.
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
end.
0,0
(0 оценок)
Ответ:
юлд1
08.09.2020 23:05
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(100,999).Where(x->x mod 13=0).Count)
end.
Результат
69
0,0
(0 оценок)
Популярные вопросы: Информатика
КристинаСтерликова
23.02.2022 00:16
У яких форматах може бути збережено файл текстового документа в Word 2007? Який формат є стандартним?...
Крутой435678
02.12.2020 22:21
семиклассник Ваня готовится к олимпиаде по информатике. За дни подготовки включая сегодняшний день, он суммарно прорешал B задач, которые ему необходимо решать каждый последующий...
vbrcb
29.07.2022 14:37
В странах А и В считают время по-разному. В одном часе в стране А ровно M 1 минут, а в одном дне ровно H 1 часов. В стране В в одном часе ровно M 2 минуты, а в одном дне ровно...
elenasypchenkop00npz
29.02.2020 14:35
решить эти примеры вообще не понимаю как их делать...
Vikatop10
17.05.2020 01:18
Найдите вес файла в байтах, если он передается со скоростью 64 бита в секунду за 1 час....
gerasim4uckirip08lfr
16.05.2022 10:12
Доступ к файлу data.xml, находящемуся на сервере new.ru, в каталоге data, осуществляется по протоколу http. В таблице фрагменты адреса закодированы буквами от а до ж запишите...
Dinho1337
03.05.2021 17:50
ДРУЗЬЯ ПОЧТИ НЕЕТ Каждой букве соответствует определенный объем информации. Запишите последовательность этих букв таким образом, чтобы единицы измерения информации шли по...
akdavletovaalfia
06.02.2022 06:01
Паскаль абс написать программу вычисления произведения положительных элементов третьей строки двумерного массива целых чисел паскаль абс...
anastasiyanast29
26.09.2022 01:45
Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. получившийся файл был передан в город а по каналу связи за 30 секунд. затем тот...
daha0061
19.04.2020 17:03
В коллекции хранятся бабочки различных цветов. Чтобы узнать, какого цвета бабочки преимущественно составляли коллекцию, выполни алгоритм...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
k:=0;
for i:=999 downto 100 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
end.
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(100,999).Where(x->x mod 13=0).Count)
end.
Результат
69