Задать вопрос
23 декабря, 16:18

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

+3
Ответы (1)
  1. 23 декабря, 19:57
    0
    Var S, I: integer;

    Begin

    FOR i : = 0 to 1000 do

    if (i mod 13 = 0) then s : = s + 1;

    writeln (s) ;

    End.

    Вот так)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти количество кратных 13 чисел от 1 до 1000 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы