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

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

Ответ:

GameOverYouTube

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

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

gusarova17

20.02.2021 22:36

2.Прочитайте алгоритм установки палатки.Чтобы поставить палатку, нужно найти ровное место и очистить его от веток и мусора. Достаньте палатку из , Упаковки и разверните ее натяните...

mary357vozd80s

06.07.2022 18:08

Написать программу для abc паскаль. нужно сделать так, чтобы программа в ответе выдала xoxoxoxoxo, но при этом мы указываем сколько должно быть столбцов, сколько рядов. должна получиться...

Пашаg

07.10.2022 19:59

Решите сор по русскому языку...

nosovadascha20

16.12.2022 10:50

Как назывались патриахальная семья родовая община и племя в книге Авесте ?...

pasatnuk

18.05.2022 23:45

Освободитесь от иррациональности в знаменателе дроби15c√3...

turkmenochka75

08.11.2020 09:43

Решите уравнение 4^x - 3*4 ^x-2=13...

deniskalubit

12.12.2021 04:02

Помгите не могу решить! Заранее огромное...

хорошист546

12.12.2021 04:02

Немецкий язык. Глаголы Здравствуйте, нужно заполнить пропуски в приводимых ниже предложениях глаголом werden в нужной форме. 1. Nächstes Jahr ...ich in Deutschland studieren. 2....

hromovaysoydwfz

18.02.2023 02:24

Направления арабской культуры религия- ремесла- астрономия и математика- история и география- литература -...

Аrmyanin

05.09.2020 02:57

: рано спать и вставать есть фрукты и овошипить каждый день миним 3 л водыизбавится от вредных привычек...

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

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