Для чего айым при программировании использовала блок "если"

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

x mod 5

-4 -3 -2 -1 0 1 2 3 4  

x div 5

любое целое число от  -429496729 до  429496729 (если x - longint) или от -13107 до  13107 если х - integer

переведём это число в десятичную систему отсчёта: 6*7*7*7+3*7*7+1*7+7*1=2219.

теперь переведём это число в двочную систему:

2219: 2=1109 1

1109: 2=554 1

554: 2=277 0

277: 2=138 1

138: 2=69 0

69: 2=34 1

34: 2=17 0

17: 2=8 1

8: 2=4 0

4: 2=2 0

2: 2=1 0

1: 2=0 1

значит число в двоичном виде: 100010101011

1.

program num1; uses crt; var a : array [1..100] of integer; i,k,n, s : integer; begin clrscr; s: =0; write('k='); readln(k); write('n='); readln(n); for i: =1 to n do  readln(a[i]); for i: =1 to n do if (a[i] mod k)=0 then s: =s+a[i]; writeln('s=',s); end.

2.

program num2; uses crt; var a : array [1..100] of real; i,n,j : integer; x : array [1..100] of real; begin clrscr; write('n='); readln(n); for i: =1 to n do  readln(a[i]); j: =1; for i: =1 to n do if a[i]=0 then begin x[j]: =i; j: =j+1 end; for i: =1 to j-1 do write(x[i],' '); end.

3.

program num3; uses crt; var a : array [1..100] of real; i,n : integer; begin clrscr; write('n='); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if a[i]< > 0 then if a[i]> 0 then begin writeln('положительное встречается раньше'); break end else begin writeln('отрицательное встречается раньше'); break end; end; end.

4.

program num4; uses crt; var a : array [1..100] of real; i, n, j : integer; begin clrscr; write('n='); readln(n); a[n+1]: =a[n]+1; for i: =1 to n do readln(a[i]); j: =0; i: =1; while i< n do begin if a[i]< a[i+1] then begin j: =j+1; i: =i+1 end else begin writeln('последовательность невозрастающая'); break end; end;

if i=n then writeln('последовательность возрастающая'); end.