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