Предмет: Информатика,
автор: elnemiwar
Pascal!Даю 30 балов!
Написать программу,помогите
Дано 4-х значное число<вычислить произведение его чисел
Ответы
Автор ответа:
0
var n,m: integer;
begin
write('число: '); readln(n);
m:=1;
repeat
m:=m*(n mod 10);
n:=n div 10;
until n=0;
writeln('произведение цифр: ',m);
end.
begin
write('число: '); readln(n);
m:=1;
repeat
m:=m*(n mod 10);
n:=n div 10;
until n=0;
writeln('произведение цифр: ',m);
end.
Автор ответа:
0
А while проходили?
Автор ответа:
0
нет
Автор ответа:
0
А что из циклов проходили?
Автор ответа:
0
проходили read(a) div S:=a mod wtite(s) ну эти примеры
Автор ответа:
0
begin write('число: '); readln(n); m:=(n mod 10); m:=m*((n div 10) mod 10); m:=m*((n div 100) mod 10); m:=m*(n div 1000); writeln('произведение цифр: ',m); end.
Автор ответа:
0
Наверное имелось ввиду произведение его цифр, тогда может получиться так:
1. Решение без циклов
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;//n1-кол-во четных, n2-нечетных
begin
read(n);
p:=1;
//получаем остаток от деления (единицы) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем единицы
n:=n div 10;
//получаем остаток от деления (десятки) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем десятки
n:=n div 10;
//получаем остаток от деления (сотни) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем сотни
n:=n div 10;
//получаем остаток от деления (тысячи) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем тысячи
n:=n div 10;
///получаем остаток от деления (сотни тысяч) и умножаем на него p
x:=n mod 10; p:=p*x;
// Теперь в p находится произведение единицы*сотни*тысячи*сотни тысяч
writeln('Произведение цифр ',p);
end.
2. Решение с циклом
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;
begin
readln(n);
p:=1;
while n>0 do begin
x:=n mod 10; p:=p*x;
n:=n div 10;
end;
writeln('Произведение цифр ',p);
end.
1. Решение без циклов
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;//n1-кол-во четных, n2-нечетных
begin
read(n);
p:=1;
//получаем остаток от деления (единицы) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем единицы
n:=n div 10;
//получаем остаток от деления (десятки) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем десятки
n:=n div 10;
//получаем остаток от деления (сотни) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем сотни
n:=n div 10;
//получаем остаток от деления (тысячи) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем тысячи
n:=n div 10;
///получаем остаток от деления (сотни тысяч) и умножаем на него p
x:=n mod 10; p:=p*x;
// Теперь в p находится произведение единицы*сотни*тысячи*сотни тысяч
writeln('Произведение цифр ',p);
end.
2. Решение с циклом
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;
begin
readln(n);
p:=1;
while n>0 do begin
x:=n mod 10; p:=p*x;
n:=n div 10;
end;
writeln('Произведение цифр ',p);
end.
Автор ответа:
0
что тут?
Автор ответа:
0
Алгоритм работает так, что на каждом шаге он отсекает
Автор ответа:
0
единицы, затем десятки, затем сотни ... Мы все время получаем о получаем остаток от деления на 10
Автор ответа:
0
а то что надо произведение 4-х значного числа это ничего не значит?
Автор ответа:
0
нашли геморой на свою попу:D
Похожие вопросы
Предмет: Математика,
автор: kamilaabasova7
Предмет: Українська мова,
автор: irina8388
Предмет: Геометрия,
автор: Lenochkaaaaaaaa
Предмет: Математика,
автор: babushkinalena