Задать вопрос
17 октября, 08:44

Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.

Pascal.

+1
Ответы (1)
  1. 17 октября, 10:03
    0
    Var

    n, S:integer;

    Begin

    Write ('n = ') ;

    ReadLn (n) ;

    S:=0;

    While n > 0 do

    Begin

    S:=S+Sqr (n mod 10) ;

    n:=n div 10

    End;

    WriteLn ('S = ', S) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа. Pascal. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal
Ответы (1)
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
1. Составьте алгоритм вычисления суммы квадратов цифр, заданного трехзначного числа. 2. Составить алгоритм вычисления разности кубов цифр, заданного восьмизначного числа. 3.
Ответы (1)
Помогите составить программу на языке С! С клавиатуры вводится целое число. Определить кол-во цифр в нем, сумму его цифр, произведение его цифр, среднее арифметическое его цифр, сумму квадратов его цифр, сумму кубов его цифр.
Ответы (1)
Программа в Pascal ABC: Дано натуральное число. Определить: а) количество цифр в нем; б) сумму его цифр; б) сумму квадратов его цифр.
Ответы (1)