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

Ответы 1

  • vari,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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years