Задать вопрос Регистрация
Помочь другим

  • дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Ответы 1

  • var a,b,s: integer;begin readln(a); while a>=10 do begin b:=a mod 10; s:=s+sqr(b); a:=a div 10; end; a:=a*a; s:=s+a; writeln(s); readln;end.В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

     

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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