Информатика | 5 - 9 классы
Даны два натуральных числа.
Выяснить в каком из них сумма цифр больше.
(Определить функцию для расчета суммы цифр натурального числа).
Дано натуральное четырехзначное число n?
Дано натуральное четырехзначное число n.
Найти сумму его цифр.
Дано натуральное число : − найти сумму цифр этого числа ; − верно ли, что число начинается и заканчивается одной и той же цифрой?
Дано натуральное число : − найти сумму цифр этого числа ; − верно ли, что число начинается и заканчивается одной и той же цифрой.
Дано натуральное число?
Дано натуральное число.
Верно ли, что сумма его цифр больше 10?
Paskal.
Дано натуральное число n?
Дано натуральное число n.
Найти сумму первой и последней цифры этого числа.
Составить программу на паскале Дано натуральное число, найти сумму цифр этого числа?
Составить программу на паскале Дано натуральное число, найти сумму цифр этого числа!
Дано четырехзначное натуральное число?
Дано четырехзначное натуральное число.
Определить является ли сумма первой и последней цифр кратной 3 Паскаль.
Код программы в PASCAL, СРОЧНО?
Код программы в PASCAL, СРОЧНО!
Условие : Вводятся 3 натуральных числа.
Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).
Дано натуральное число?
Дано натуральное число.
Определить сумму его цифр, больших 5.
Дано натуральное число n?
Дано натуральное число n.
Определить : a) Количество цифр в этом числе ; б)Сумму его цифр ; в)Первую цифру числа n ;
Дано натуральному число?
Дано натуральному число.
Верно ли, что сумма его цифр не меньше 10?
На этой странице вы найдете ответ на вопрос Даны два натуральных числа?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 5 - 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Var a, b : integer ;
function sum(c : integer) : integer ;
var s : string ; i, r : integer ;
begin r : = 0 ; s : = inttostr(c) ; for i : = 1 to length(s) do r : = r + strtoint(s[i]) ; result : = r ;
end ;
begin readln(a, b) ; if (sum(a) > ; sum(b)) then writeln('A > ; B') else if (sum(a) = sum(b)) then writeln('A = B') else writeln('A < ; B') ;
end.
I ♥ functions : ).