Регистрация
Qqwqqqq
07.09.2022 14:37
Информатика
Есть ответ 👍

Сочинение на тему: я частина информацийного суспильства!

236
425
Посмотреть ответы 1

Ответы на вопрос:

happiness19854p06jm5
happiness19854p06jm5
4,6(10 оценок)
Var i, k, n, sum: integer;       a: array[1..1000000] of integer; begin   readln(n, k);   for i: =1 to n do a[i]: =i;   sum: =0;   for i: =1 to n do       if a[i] mod k = 0 then           sum: =sum+a[i];   writeln(sum); end.

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