Информатика | 5 - 9 классы
Дано натуральное число N.
Определить, верно ли, что квадрат значения N равен кубу суммы цифр числа N (операции над строками не использовать).
Pascal.
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа?
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
Free pascal.
Дано натуральное число : − найти сумму цифр этого числа ; − верно ли, что число начинается и заканчивается одной и той же цифрой?
Дано натуральное число : − найти сумму цифр этого числа ; − верно ли, что число начинается и заканчивается одной и той же цифрой.
Дано натуральное число?
Дано натуральное число.
Верно ли, что сумма его цифр больше 10?
Paskal.
Определить равен ли квадрат заданного четырехзначного числа кубу суммы цифр этого числа?
Определить равен ли квадрат заданного четырехзначного числа кубу суммы цифр этого числа.
Даны два натуральных числа?
Даны два натуральных числа.
Выяснить в каком из них сумма цифр больше.
(Определить функцию для расчета суммы цифр натурального числа).
Помогитe составить программу на Free Pascal?
Помогитe составить программу на Free Pascal.
Дано натуральное число.
Верно ли, что произведение его цифр не больше 50.
Дано натуральное число?
Дано натуральное число.
Определить сумму его цифр, больших 5.
Дано натуральное число N ?
Дано натуральное число N .
Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).
Дано натуральному число?
Дано натуральному число.
Верно ли, что сумма его цифр не меньше 10?
Дано двузначное число?
Дано двузначное число.
Определить, кратна ли трем сумма его цифр?
( Pascal).
Вы открыли страницу вопроса Дано натуральное число N?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 5 - 9 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
Var N, s, x : integer ;
begins : = 0 ;
writeln('Введите число') ;
readln(N) ;
x : = N ;
while x< ; > ; 0 do
begin
s : = s + (x mod 10) ;
x : = x div 10 ;
end ;
if sqr(n) = power(s, 3) then writeln('Верно')
else writeln('Неверно') ;
end.