napewno sie da
np. masz
var a, b, d : integer;
var f : real;
begin
writeln ('podaj a');
readln(a);
writeln ('podaj b');
readln(b);
f:=a/b;
d:=a div b;
if d < f then writeln (f:2:2) else writeln (d);
end.
musisz to teraz tylko wstawic w ten fragment programu gdzie kalkulator dzieli, polega to na tym, ze f jest typu real i przechowuje rzeczywista wratosc dzielenia, natomiast d przechowuje wartosc calkowita, po odcieciu cyfr po kropce, jezeli f jest wieksze od d (a bedzie tak tylko wtedy jezeli bedzie cos mialo po kropce) to wypisywane jest np. 2.11 jezeli sa rowne, to wyswietla d jako normalna liczbe, bez kropki