tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано трехзначное число найдите
Дано трехзначное число найдите сумму квадратов его чисел
sasha228111228
2 06.07.2019 23:20
3
Ответы
nastya892968060
02.10.2020 21:37
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
anasteishamrrr
08.08.2019 14:20
Дано шестизначное яисло.найти число,полученное перестановкой 1-ой и 2-ой цифр,3-ей и 4-ой цифр,5-ой и 6-ой цифр....
Masha3334
08.08.2019 14:20
Составьте блок схему и напишите программу. длина прямоугольного участка земли равна х метров, а ширина равна y метров .напишите программу вычисления количества...
аникдим
16.03.2021 10:05
Сколько там деталей в компьютерной программе (ПО)...
Milka210413
14.05.2019 22:07
2. преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal. алгоритмический язык алг выражение нач цел х вещ у ввод х если х =0...
Niks666
14.05.2019 22:09
Объем сообщения содержащего 20480символов равен 4кбайт в какой кодировке было данное сообщение...
wolf13131
28.09.2019 05:01
Развернутым некоторый язык содержит только трёхбуквенные слова, которые можно образовывать из букв его алфавита в любых комбинациях. известно, что словарный запас...
wikawolchkowa
19.05.2020 06:14
Стихи ,и как читать их вслух. несколько советов известного чтеца якова михайловича смоленского. ответить на во вы прочитали небольшой отрывок из статьи я. м. смоленского...
annatiko1984
19.05.2020 06:14
точка M делит отрезок PK в соотношении 3:1 начиная от точки P. Найдите координаты (2;1) , (3;5)...
karinaandreevozb5ha
19.05.2020 06:14
Люди! Кантрольная по математике Умоляю Сдавать через 25 минут....
yasya142
19.05.2020 06:14
Равносторонний треугольник ABC вписан в окружность радиуса 6 см найдите его сторону ...
Популярные вопросы
Спираючись на біографічну статтю в підручнику, запиши запитаннядля...
1
Что украшает стены мечети: A. отрывки из Корана B. изображения...
2
Літак летить горизонтально зі швідкістю 720 км / год на вісоті...
3
Какая польза и вред от радости?...
2
Скласти схему Типи країн за рівнем соціально - економічного...
1
Что полезного и вредного в отвращении?...
2
Напишіть рівняння утворення ортофосфорної кислоти із фосфор...
2
Разложите на множители 2b + ab + 2c + ac...
2
На космічному кораблі який рухається зі швидкістю 1.8×10^8 відносно...
1
Знайдіть суму перших шести членів геометричної прогресії, якщо...
1
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