лабы паскаль

вижуал басик в универе лол

а задачка изи же

автор рак

ответ 42

а причем тут программирование? Тут чистая математика

UP

UP

UP

Вычислить сумму всех чисел от 1 до M, которые кратны 3. Число, кратное 3,

делится на 3 нацело.

helpmeplz

Лабок мне сначала поласкай

UP

UP

UP

 

 

 

Вычислить сумму всех чисел от 1 до M, которые кратны 3. Число, кратное 3,

делится на 3 нацело.

 

helpmeplz

дед смотри, хроник запостил

лол

Учусь на строителя , ничем не могу помочь.

UP

UP

UP

 

 

 

Вычислить сумму всех чисел от 1 до M, которые кратны 3. Число, кратное 3,

делится на 3 нацело.

 

helpmeplz

Ого, гайка вернулся, пацаны

var summ, M, i:integer;
readln(M);

summ := 0;
for i := 1 to M do
if (i mod 3 = 0)
	summ := summ + i;

writeln(summ);

Ахахаххаха. Как только

5 пользователей, 3 гостей, 0 невидимых

Gomosek, DTS|XPEH, SOSKI-_-KROTA, Kant, CHUMAZIG

Так сразу:

var summ, M, i:integer;
readln(M);

summ := 0;
for i := 1 to M do
if (i mod 3 = 0)
	summ := summ + i;

writeln(summ);

Блять :lol:

Ну Кант, ну красава :lol:

аххаах и вправду

Гомосек :pray: :pray:

лол