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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program chastnoe;
var N, p, sh: integer;:
m: real;
begin
write(‘N=’);
readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:=p/sh;
writeln (‘частное=’, m);
end.