var a,b,c,d,e,f,k,m:integer;
begin
writeln('A, B:');
readln(a,b);
writeln('C, D:');
readln(c,d);
e:=a*100+b;
f:=c*100+d;
k:=e div f;
m:=e-k*f;
writeln('k = ',k);
writeln('Останется: ',m div 100,' гр ',m mod 100,' коп');
end.
Объяснение:
var a,b,c,d,e,f,k,m:integer;
begin
writeln('A, B:');
readln(a,b);
writeln('C, D:');
readln(c,d);
e:=a*100+b;
f:=c*100+d;
k:=e div f;
m:=e-k*f;
writeln('k = ',k);
writeln('Останется: ',m div 100,' гр ',m mod 100,' коп');
end.
Объяснение: