12 lines
164 B
ObjectPascal
12 lines
164 B
ObjectPascal
program a7;
|
|
var a:real;
|
|
b:integer;
|
|
begin
|
|
ReadLn(a);
|
|
a:=a*100;
|
|
b:= Trunc (a);
|
|
b:=b mod 100;
|
|
writeln(b);
|
|
a:=(b div 10) + (b mod 10);
|
|
writeln(a);
|
|
end. |