Решите пожалуйста задачу по информатике , по теме "див и мод"
Дано четырёхзначное число х.Найти произведение.
Очень срочно надо ! ! ! ПОЖАЛУЙСТААА ! ! !
Ответы
Ответ дал:
0
Program pr;
uses crt;
Var x, x1, x2, x3, x4, p:integer;
Begin
readln(x);
x1:=x div 1000;
x2:=(x div 100) mod 10;
x3:=(x mod 100) div 10;
x4:=x mod 10;
p:=x1*x2*x3*x4;
Writeln(p);
readln;
end.
uses crt;
Var x, x1, x2, x3, x4, p:integer;
Begin
readln(x);
x1:=x div 1000;
x2:=(x div 100) mod 10;
x3:=(x mod 100) div 10;
x4:=x mod 10;
p:=x1*x2*x3*x4;
Writeln(p);
readln;
end.
Вас заинтересует
1 год назад
7 лет назад
9 лет назад
9 лет назад