Составить программу, содержащую операторы ввода, вывода, присваивания.
9)Найти произведение всех цифр заданного четырехзначного числа.
Ответы
Ответ дал:
0
program znanija;
var a, res:integer;
begin
res := 1;
write('Введите число: ');
readln(a);
while a>1 do
begin
res := res * (a mod 10);
a := a div 10;
end;
writeln('Произведение всех цифр = ', res);
end.
var a, res:integer;
begin
res := 1;
write('Введите число: ');
readln(a);
while a>1 do
begin
res := res * (a mod 10);
a := a div 10;
end;
writeln('Произведение всех цифр = ', res);
end.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад