Дано трехзначное число найдите сумму квадратов его чисел

1 ответ

Посмотреть ответы

Megamozg

2205

Var
n,i,s:integer;
begin
Write('Введите трехзначное натуральное число: '); Read(n);
s:=0;
for i:=1 to 3 do
begin s:=s+sqr(n mod 10); n:=n div 10 end;
Writeln('Сумма квадратов цифр равна ',s)
end.

Тестовое решение:
Введите трехзначное натуральное число: 714
Сумма квадратов цифр равна 66

Хороший ответ

29 декабря 2022 12:43

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Что будет выведено на экран после выполнения фрагмента программы? s := 'фоксфорд'; s1 := 'крокодил'; s := copy(s,1,4) + 'т' + copy(s1,2,2) +... Является ли условным оператором следующая последовательность символов a) if x<y then x:=0 else read (y) б)if x>=y then x:=0; y:= else write (z)... напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм = 2,54 см) для значений от 1 до 10 дюймов с шагом 1... 10. Укажите верные утверждения. Выберите несколько из 4 вариантов ответа: 1) Раздел - это часть текста. 2) Уровней заголовков может быть большое кол... Решите задание по информатике...