Ответы и объяснения

2013-05-16T11:41:28+00:00

var
a:real;
b:integer;
begin
write('Введите дробное число: ');
readln(a);
a:=Frac(a);
a:=a*100;
a:=Int(a);
b:=Round(a);
writeln(b div 10 + b mod 10);
end.