program Free_Pascal ;
uses CRT;
Var a,b,c,E:integer;
BEGIN
Writeln('Vvesty shotyryznashne shislo');
Read(c);
a:= c mod 10;
Writeln(a);
b:= c div 10;
c:= c div 10 mod 10;
E:= a*b*c;
writeln(E);
Readln;
Readln;
END.
uses CRT;
Var a,b,c,E:integer;
BEGIN
Writeln('Vvesty shotyryznashne shislo');
Read(c);
a:= c mod 10;
Writeln(a);
b:= c div 10;
c:= c div 10 mod 10;
E:= a*b*c;
writeln(E);
Readln;
Readln;
END.
Комментариев нет:
Отправить комментарий