Информатика | 5 - 9 классы
Дано натуральное число n.
Определить : a) Количество цифр в этом числе ; б)Сумму его цифр ; в)Первую цифру числа n ;
Ввести с клавиатуры двузначное число и цифру?
Ввести с клавиатуры двузначное число и цифру.
Определить, есть ли данная цифра в этом числе.
Дано натуральное число в котором все цифры различны определить порядочный номер его максимальной цифры?
Дано натуральное число в котором все цифры различны определить порядочный номер его максимальной цифры.
Дано натуральное число?
Дано натуральное число.
Определить каких цифр в данном числе больше четных или нечетных.
Через Паскаль.
Составить программу?
Составить программу.
Дано натуральное число n.
Подсчитать количество цифр этого числа.
1) дано натуральное а?
1) дано натуральное а.
Верно ли, что данное число состоит из 3 цифр?
2) дано натуральное число.
Верно ли, что в данном числе четыре цифры?
3) Даны два натуральных числа.
Определить в каком числе первая цифра больше.
4) Дано натуральное n.
Найти количество 6, входящих в данное число.
Нужно решить в программе паскаль.
Если поможет, то мы учим цикл в паскале, div, mod.
Дано натуральное число N, в котором все цифры различны?
Дано натуральное число N, в котором все цифры различны.
Найти остаток от деления максимальной цифры на минимальную цифру данного числа.
Даны два натуральных числа?
Даны два натуральных числа.
Выяснить в каком из них сумма цифр больше.
(Определить функцию для расчета суммы цифр натурального числа).
Дано пятизначное натуральное число?
Дано пятизначное натуральное число.
Определить его первую и последнюю цифры.
Дано натуральное число?
Дано натуральное число.
Определить сумму его цифр, больших 5.
Дано натуральное число определить его максимальную цифру?
Дано натуральное число определить его максимальную цифру.
Вопрос Дано натуральное число n?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Var n, sum, d, ind, first : integer ;
begin Write('n') ;
Readln(n) ; d : = 1 ;
ind : = 0 ; sum : = 0 ; if n div d = 0 then
begin
ind : = 1 ;
sum : = n ; end
else
begin
while n div d< ; > ; 0 do
begin
inc(ind) ;
sum : = sum + (n div d) mod 10 ;
d : = d * 10 ;
end ;
end ;
Writeln('suma', Sum) ;
Writeln('kolvo', ind) ;
first : = (n div round(d / 10)) mod 10 ;
writeln('first', first) ;
readln ;
end.