Предмет: Информатика,
автор: alinati
решить в паскале найти произведение цифр четырёхзначного числа
Ответы
Автор ответа:
0
var
p: longint;
k, m, n, i: integer;
begin
Write('Введите целое четырехзначное число: ');
Readln(n);
n := Abs(n); { вдруг отрицательное введут? }
p := 1;
for i := 1 to 4 do
begin
m := n mod 10;
n := n div 10;
p := p * m
end;
Writeln('Произведение цифр в числе равно ', p);
end.
Тестовое решение:
Введите целое четырехзначное число: 1234
Произведение цифр в числе равно 24
p: longint;
k, m, n, i: integer;
begin
Write('Введите целое четырехзначное число: ');
Readln(n);
n := Abs(n); { вдруг отрицательное введут? }
p := 1;
for i := 1 to 4 do
begin
m := n mod 10;
n := n div 10;
p := p * m
end;
Writeln('Произведение цифр в числе равно ', p);
end.
Тестовое решение:
Введите целое четырехзначное число: 1234
Произведение цифр в числе равно 24
Похожие вопросы
Предмет: Қазақ тiлi,
автор: aushinova01
Предмет: Русский язык,
автор: Fufun1ke3
Предмет: Английский язык,
автор: jkmuf4311
Предмет: Математика,
автор: dania27
Предмет: Алгебра,
автор: VanyaVanek