Предмет: Информатика,
автор: vipkarinakul
Как найти произведение цифр четырех значного числа на языке паскаль?
Ответы
Автор ответа:
0
var
x,p:integer;
begin
writeln('Введите х:');
readln(x);
p:=1;
p:= x mod 10; x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * x;
writeln(p);
end.
x,p:integer;
begin
writeln('Введите х:');
readln(x);
p:=1;
p:= x mod 10; x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * x;
writeln(p);
end.
Автор ответа:
0
спасибки
Похожие вопросы
Предмет: Алгебра,
автор: chirkovruslasha
Предмет: Английский язык,
автор: savelijrozhin
Предмет: Українська мова,
автор: alvinacheban
Предмет: Информатика,
автор: aliyakurmanova
Предмет: Математика,
автор: german160203