Program chastnoe;var N, p, sh: integer;m: real;beginwrite(‘N=’); readln (N);p:= N div 1000000000;sh:= (N div 10000) mod 10;m:= p/sh;writeln (‘частное=’,m);end.
30 должно равняться