1. Скласти програму обчислення значення суми числового ряду:
PROGRAM SUM;
VAR
X,Y,S1,S2,S:INTEGER;
BEGIN
S1:=0; S2:=0;
FOR X:=10 TO 20 DO
S1:=S1+X;
FOR Y:=20 DOWNTO 10 DO
S1:=S1+Y;
S:=S1+S2;
WRITELN (‘значение суммы S = ’,S)
END.
2. Скласти програму табулювання функції у дійсного аргументу х на відрізки
(-20,20) з кроком 0,5, використовуючи оператор циклу з передумовою:
cos(xb)2 , якщо -20£x£0
y= 
, якщо 0<х£20
де: a,b – цілі числа.
PROGRAM TAB;
CONST
X0=-20; XN=20; HX=0,5;
VAR
X,Y:REAL;
A,B:INTEGER;
BEGIN
READLN (A,B);
X:=X0;
WHILE X<=XN DO
BEGIN
IF X<=0
THEN Y:=COS(SQR(X*B))
ELSE Y:=SQRT(A+B*EXP(3*LN(X)));
WRITELN (‘при x=’,X, ‘y=’Y);
X:=X+HX
END
END.
