Найти сумму чисел кратных 6 и оканчивающихся на 4 из последующих натуральных чисел (к< = 1000; a<3000)

Question

Информатика

Христинья

1 сентября, 16:10

Найти сумму чисел кратных 6 и оканчивающихся на 4 из последующих натуральных чисел (к< = 1000; a<3000)

+2

Ответы (1)

Знаете ответ?

Васяня · Answer 1

Var

i, a:integer;

s:real;

begin

for i:=1000 to 3000-1 do

if (i mod 6=0) and (i mod 10=4) then

begin

write (i,' ') ; {это чтобы посмотреть на числа, эту строку можно убрать}

s:=s+i;

end;

writeln;

writeln ('S = ', S) ;

end.