• среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ С ЦИКЛОМ!!!!!ПААСКАЛЬ

Ответы 1

  • var i,s:integer;BEGIN s := 0; for i := 10 to 99 do if i mod 13 = 0 then s := s + (sqr(i div 10)+sqr(i mod 10)); write(s)END.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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