Решите задачу (Паскаль) Найти сумму чисел кратных 6

Question

Решите задачу (Паскаль)
Найти сумму чисел кратных 6

Comments

Вот полное задание реши пожалуйста Решите задачу (Паскаль)Найти сумму чисел кратных 6 от 1 до n

---

такую ж и решили

Answer 1

Var
    i, n, s: integer;

begin
    write('n = ');
    readln(n);
    for i := 1 to n do
        if i mod 6 = 0 then
            s := s + i;
    
    writeln(s);
end.