Информатика | 10 - 11 классы
Дано натуральное число.
Найти номер цифры 3 в нем, считая от конца.
Дано натуральное число?
Дано натуральное число.
Найти максимальную цифру.
В паскале.
Через while.
Дано трехзначное число?
Дано трехзначное число.
В нем зачеркнули первую цифру слева и приписали ее в конце.
Найти полученное число.
Дано натуральное четырехзначное число n?
Дано натуральное четырехзначное число n.
Найти сумму его цифр.
ПОМОГИИТЕ?
ПОМОГИИТЕ!
Дано натуральное число.
Определить, сколько раз в нем встречается цифра равная последней.
Помогите решить задачи в С#?
Помогите решить задачи в С#.
1) Найти число элементов массива, которые больше своих "соседей", т.
Е предшествующего и предыдущего.
2) Дано натуральное число, в котором все цифры различны.
Нужно определить порядковый номер его максимальной цифры, считая номера :
а) от конца числа
б) от начала числа
Помогите, пожалуйста!
От этих задач зависит моя полугодовая оценка.
Дано натуральное число N, в котором все цифры различны?
Дано натуральное число N, в котором все цифры различны.
Найти остаток от деления максимальной цифры на минимальную цифру данного числа.
Дано натуральное число?
Дано натуральное число.
Определить, есть ли в нем цифра равная а (а вводится с клавиатуры).
ПАСКАЛЬ, ИНФОРМАТИКА?
ПАСКАЛЬ, ИНФОРМАТИКА.
П о м о г и т е Дано натуральное число.
Найти количество нечетных цифр в нем.
Дано натуральное число ?
Дано натуральное число .
Определить есть ли в нем цифра а Написать с постусловием язык Паскаля !
Дано натуральное число?
Дано натуральное число.
Найти максимальную цифру.
В паскале.
Через процедуры.
На этой странице сайта вы найдете ответы на вопрос Дано натуральное число?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Var a, bug, m : integer ;
s : string ;
begin ;
readln(a) ;
str(a, s) ; / / переводим число в строку
writeln('Result : ') ;
while pos('3', s)< ; > ; 0 do / / пока 3 есть в строке выполнять
begin ;
m : = length(s) - pos('3', s) + 1 ; / / длина строки - позиция тройки + 1
delete(s, pos('3', s), 1) ; / / удаляем 3 из строки чтобы можно было проверить след.
Writeln(m) ;
end ;
end.