Информатика | 10 - 11 классы
Дано натуральное число.
Определить, есть ли в нем цифра равная а (а вводится с клавиатуры).
С клавиатуры вводится натуральное число?
С клавиатуры вводится натуральное число.
Определите сколько в его записи нечетных чисел.
С клавиатуры вводится натуральное число N?
С клавиатуры вводится натуральное число N.
Найдите и выведите самую большую цифру этого числа.
Из данного натурального числа n, удалить все цифры 5 ( n вводиться с клавиатуры)?
Из данного натурального числа n, удалить все цифры 5 ( n вводиться с клавиатуры).
Например вводим 25455, выводит 24.
С клавиатуры вводиться натуральное число м < ; 27 найдите и выведите на экран все трехзначные числа натуральные числа , сумма цифр которых равна м?
С клавиатуры вводиться натуральное число м < ; 27 найдите и выведите на экран все трехзначные числа натуральные числа , сумма цифр которых равна м.
ПОМОГИИТЕ?
ПОМОГИИТЕ!
Дано натуральное число.
Определить, сколько раз в нем встречается цифра равная последней.
С клавиатуры вводится натуральное число n?
С клавиатуры вводится натуральное число n.
Найдите и выведите самую большую цифру этого числа.
Дано натуральное число?
Дано натуральное число.
Найти количество цифр данного числа больших b(b вводится с клавиатуры).
Дано натуральное число ?
Дано натуральное число .
Определить есть ли в нем цифра а Написать с постусловием язык Паскаля !
С клавиатуры вводится целое положительное число?
С клавиатуры вводится целое положительное число.
Определить, сколько в этом числе чётных цифр.
(PASCAL).
С клавиатуры вводится целое положительное число?
С клавиатуры вводится целое положительное число.
Определить, сколько раз в этом числе встретилась цифра 5.
Вопрос Дано натуральное число?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 10 - 11 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Var
z, a, i : integer ;
begin
writeln('vvedite chislo') ;
readln(z) ;
writeln('vvedite zifru') ;
readln(a) ;
for i : = 1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est') ;
z : = z div 10 ;
end ;
end.