Задать вопрос
ИнформатикаИнформатика
21 января, 04:13

Найти сумму чисел, кратных 3 от 1 до 100.

+1
Ответы (1)
  1. 21 января, 05:16
    0
    Program n1;

    var S, i: integer;

    begin

    S:=0;

    for i:=1 to 100 do

    if (i mod 3 = 0) then S:=S+i;

    writeln (S) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти сумму чисел, кратных 3 от 1 до 100. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Главная » Информатика » Найти сумму чисел, кратных 3 от 1 до 100.
Регистрация Забыл пароль