Program delenie;
uses crt;
var a, {делимое}
 b, {делитель}
 n, {число точных цифр после запятой}
 i: integer;
begin 
 writeln('Введите делимое: ');
 read(a);
 write('Введите делитель: ');
 read(b);
 write('Введите число точных цифр после запятой: ');
 read(n);
 write(a, ' : ', b:1, '=');
 if (a<0)<>(b<0) then {числа имеют разные знаки}
 write('-');
 a:=abs(a); b:=abs(b);
 write(a div b:1, '.');
 for i:=1 to n do
 begin
 a:=(a mod b)*10;
 write(a div b:1)
 end;
readkey
end.
При a=22, b=7, c=20 ЭВМ напечатала $$22:7=3.14285714285714285714.$$


2012-06-24 • Просмотров [ 928 ]