Ответы
Ответ дал:
0
Var
a,s,d,f:integer;
Begin
Writeln('четырехзначное число,s');
a:=0;
a:=(s div100)*(s mod 10 )*(s div 10 mod 10)*(s div 100 mod 10);
Writeln ('s');
End.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад