Войти Регистрация Спроси ai-bota

Найти количество кратных 13 чисел от 1 до 1000

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

викториасн

21.05.2023 14:59

Условие Дано натуральное число n. Необходимо поменять порядок цифр числа на обратный. Формат входных данных В программу вводится одно целое число n (1≤n 109). Формат...

Komarova24

10.11.2020 20:26

Упростите указанное логическое выражение ¬(¬A → B)...

leralagbibl

07.08.2021 01:52

С РЕШЕНИЕМ ИНФОРМАТИКА 10 КЛАСС...

Princess1111Yulua

07.02.2020 19:46

Хочу попросить решения с программирования.вот сама . сложите программу которая будет вычислять сумму двух чисел а и b....

Arina001234hh

12.09.2022 02:33

1. Кто руководил разработкой протокола TCP\IP, который до сих пор используется для передачи данных по сети? a. Винтон Серф b. Рей Томлинсон c. Пол Бэрэн d. Роберт Кан...

rus200130

01.11.2020 04:55

21. Режим передачи данных только в одном направлении... a. симплексный b. полудуплексный c. дуплексный d. Среди предложенных вариантов нет верного. 22. Множество компьютеров,...

TkAl06

16.02.2023 10:08

решить Задание: 1. Решите алгоритмические задачи: Расставьте действия по порядку: Задача №1. Переход дороги на светофоре № действия Действия Если горит зелёный, то...

илья1948

26.08.2020 21:20

образования слова - неровности ?...

автормемовв

26.08.2020 21:20

Стороны параллелограмма равны 26 см и 37 см , а его меньшая диоганаль равна 15 см . найти площадь параллелограмма....

nmpepatop1

26.08.2020 21:20

Вмагазине имеются две фляги с медом одного сорта. стоимость меда в 1 фляге--1242р.. а во 2 фляге--1728р.. причем во 2 фляге меда на 9 кг больше чем в 1 . определите...

Ответ:

nikita125328

01.10.2020 11:09

Var S, I: integer;
Begin
FOR i := 0 to 1000 do
if (i mod 13 = 0) then s := s + 1;
writeln(s);
End.

Вот так)

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку