сервис вопросов и ответовДано натуральное число N. Вычислить произведение его цифр. на Паскале.
10-11 класс|
|
DanilShaehov
07 окт. 2015 г., 15:42:35 (8 лет назад)
ангелочек141
07 окт. 2015 г., 16:33:27 (8 лет назад)
var
n,p:longint;
begin
p:=1;
write ('N = ');
readln(n);
while n <> 0 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
p:=p*n;
writeln ('Proizvedenie: ',p);
readln;
end.
ilyaKZ,во-первых:идентификатор не может начинаться с цифры и во-вторых:неправильно организован цикл с предусловием,программа не будем считать произведение цифр,вы наверное его перепутали с циклом с постусловием
Малыхина
07 окт. 2015 г., 19:08:45 (8 лет назад)
Program 123;
Var n,s,i: integer;
Begin
Writeln('Введите число'); Readln(n);
While n=0 do begin
S:=s*(n mod 10);
N:=n div 10;
end;
Writeln('произведение цифр ',s);
end.
Ответить
Другие вопросы из категории
С помощью мыши можно изменять размеры окон, разворачивать на весь экран, сворачивать их в кнопки на Панели задач. Назовите приложение, у которого нельзя из
менить параметры окна.
Даны два высказывания: А={Число 5 - простое}, В={Луна – спутник Венеры}.
Очевидно, что А=1, В=0. Сформулируйте на русском языке высказывания,
соответствующие следующим формулам:
a) А ; b) А*В; c) А В
Какие из них истинны?
Помогите пожалуйста)
составить блок-схемы и программы на Паскале для решении задач: компьютер запрашивает номер дня недели, после ввода компьютер сообщает название
этого дня.например, если ввели 1, то выдается фаза <> и т.д
Читайте также
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
1.дано натурально четырехзначное число. определить цифры этого числа (K,L.M.N) и выяснить можно ли построить ромб со сторонами K,L.M.N.в паскале АВС.
2.дано натурально число N вычислить куб суммы этого числа
1.Дано натуральное число:
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр
д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр
1.Дано двузначное число.Определить: a.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
Вы находитесь на странице вопроса "Дано натуральное число N. Вычислить произведение его цифр. на Паскале.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.