Решите задачу (Паскаль)

Найти сумму чисел кратных 6

Question

Романка

31 мая, 07:27

+5

Ответы (1)

Знаете ответ на вопрос?

Станиславка · 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.

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