• Составить программу для паскаля: Найти сумму квадратов цифр целого числа. Количество цифр в числе не указан

Ответы 2

  • Program summa_zifr;

    Var S, X, A: integer;

    begin

    s:=0;

    Write ('Введите число для нахождения суммы');

    Read (X);

    While X<>0 do begin

    A:= X mod 10;

    S:= A * A + S;

    X:= X div 10;

    end;

    Write ('Сумма квадратов цифр числа" , X , '=', S);

    end.

     'Сумма квадратов цифр числа' - одинарный апостроф на конце предложения:)))

    • Автор:

      quinn31
    • 4 года назад
    • 0
  • var a,b,s:integer;begin readln (a); while (a>0) do begin b:=a mod 10; s:=s+b*b; a:=a div 10; end; writeln (s);end.

     

    • Автор:

      church
    • 4 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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