Programmu atrisinājumi "Pascal", kuri uzdoti Bulova grāmatā

program uzd1_1;
uses crt;
var d,e:integer;
a,b,c:real;
begin
ClrScr;
read(d);
read(e);
gotoxy (10,4);
writeln('a)d/e=',(d/e):5:2);
gotoxy (10,5);
writeln('b)d div e=',d div e);
gotoxy (10,6);
writeln('c)d mod e=',d mod e)
end.



program Pk1_2b;
uses crt;
function f(x: real): real;
var
a,b,c,d,e: real;
begin
a:=9; b:=0.001; c:=2+x; d:=2/x; e:=6-x;
f:=a*(c+d)/(b*e);
end;
begin
clrscr;
writeln(f(2)-f(3):0:3);
readln;
end.
…