класс сор информатика

линейный (следования)

разветвляющийся (развилка)

циклический

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

(3+3·3): 3=4

(3·3+3): 3=4

================

3+3–(3: 3)=5

(3+3): 3+3=5

================

3+3+(3–3)=6

3-3+3+3=6

3·3: 3+3=6

(3+3): 3·3=6

================

3: 3+3+3=7

3+3: 3+3=7

================

3·3–3: 3=8

================

3·3·3: 3=9

3: 3·3·3=9

3·3+3-3=9

3+3·3-3=9

================

3: 3+3·3=10

3·3+3: 3=10

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.