Pascal paškontroles uzdevumu atbildes

program Pk1_3;
uses wincrt;
const a=31; b=84; c=1021; d=2471; e=4305; x=7; y=3;
begin
clrscr;
if (a mod x=0) or (a mod y=0) then writeln('31 dalaas bez atlikuma ');
if (a mod x>0) or (a mod y>0) then writeln('31 nedalaas bez atlikuma ');
if (b mod x=0) or (b mod y=0) then writeln('84 dalaas bez atlikuma ');
if (b mod x>0) or (b mod y>0) then writeln('84 nedalaas bez atlikuma ');
if (c mod x=0) or (c mod y=0) then writeln('1021 dalaas bez atlikuma ');
if (c mod x>0) or (c mod y>0) then writeln('1021 nedalaas bez atlikuma ');
if (d mod x=0) or (d mod y=0) then writeln('2471 dalaas bez atlikuma ');
if (d mod x>0) or (d mod y>0) then writeln('2471 nedalaas bez atlikuma ');
if (e mod x=0) or (e mod y=0) then writeln('4305 dalaas bez atlikuma ');
if (e mod x>0) or (e mod y>0) then writeln('4305 nedalaas bez atlikuma ')
end.

program Pk1_4;
uses wincrt;
const a=0; b=30; c=60; d=120; e=240;
begin
clrscr;
writeln(' ','xi(grad) ',' ','x(rad) ',' ','sin(x) ',' ','cos(x) ',' ','tg(x) ');
writeln(' ' ,a,' ',a*pi/180:6:2,' ',sin(a):6:2,' ',cos(a):6:2,' ',sin(a)/cos(a):6:2);
writeln(' ' ,b,' ',b*pi/180:6:2,' ',sin(b):6:2,' ',cos(b):6:2,' ',sin(b)/cos(b):6:2);
writeln(' ' ,c,' ',c*pi/180:6:2,' ',sin(c):6:2,' ',cos(c):6:2,' ',sin(c)/cos(c):6:2);
writeln(' ' ,d,' ',d*pi/180:6:2,' ',sin(d):6:2,' ',cos(d):6:2,' ',sin(d)/cos(d):6:2);
writeln(' ' ,e,' ',e*pi/180:6:2,' ',sin(e):6:2,' ',cos(e):6:2,' ',sin(e)/cos(e):6:2)

…