Найти сумму чисел кратных 6 и оканчивающихся на 4 из последующих натуральных чисел ( к<= 1000; a<3000)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
