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

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

Ответ:

умник1614

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 оценок)

Популярные вопросы: Информатика

liliyamukhamad

15.08.2020 19:31

Укажите, каким может быть условие выполнения цикла, чтобы результат исполнения алгоритма соответствовал изображению (стартовая позиция исполнителя – строка 2, столбец...

AcidSmile

18.02.2020 03:57

10. васин код вася написал код для решения некоторой . приводим его на трех языках программирования: python: n = int( ans = 0 i = 1 while n 0: if i % 2 == 1 and...

Stall124

21.05.2022 09:18

Двумерные массивы Задание: Вычислить сумму положительных и количество отрицательных элементов матрицы. ( язык с+)...

77Stranik77

05.03.2023 22:55

Напишите программы, которые относятся к инструментальному ПО, прикладному ПО и системному ПО...

ketjaan13

18.11.2020 17:19

Кролик съел 5 тарелок меда, пятачок съел на 3 тарелки меда больше чем кролик, а винипух в 7 раз больше чем пятачок. сколько меда съели они вместе...

sabrina23052006

18.11.2020 17:19

Compiete the sentences. example: the browns will a picnik tomorrow.1)dad and jim )mum and jim )they...

boldarev2001

18.11.2020 17:19

Петя расстояние от дома до школы за 5 минут .за первую минуту он м .а за каждую последующую- на 5 метров больше,чем за предыдущую.чему равно расстояние от дома до...

denisplaver

18.11.2020 17:19

Укажите координаты точки пересечения прямых х=-2 и у =3. найдите длину радиус-вектора этой точки...

Ahau

18.11.2020 17:19

Вмолекуле инсулина быка 51 аминокислота расстояние между ближайшими 23*10^-11 нм определить общую длину цепочки днк в молекуле инсулина...

Svetlanaaaa16

18.11.2020 17:19

Найдите значение выражения: log 28 по основанию 7 минус log 4 по основанию 7...

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

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