Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получится
10-11 класс
|
919
Как то так
program pr;
uses crt;
Var i,n,a,s:integer;
Begin
Writeln('Введите. n');
readln(n);
i:=1;
s:=0;
While n<>0 do
Begin
a:=n mod 10;
if (a<>0) and (a<>5) then
Begin
s:=s+a*i;
i:=i*10;
end;
n:=n div 10;
end;
Writeln(s);
end.
Другие вопросы из категории
значений x=k м и y, изменяющегося от 2 до 3 метров с шагом h м. (решить в паскале ,цикл с параметром.Помогите )
Имеется массив чисел, вводимый с клавиатуры. Вычислить сумму и произведение
всех чисел массива. Результаты вывести на экран. Язык c++. Спасибо.
Спецификация программного продукта..
1.создается заказчиком
2.описывается на этапе разработки программного продукта
3.описывает внутреннюю организацию данного продукта
4.описывает внешнее поведение программного продукта
Читайте также
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
2.дано натурально число N вычислить куб суммы этого числа
вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N
минимальное основание может иметь система счисления, если в ней записано число A11?