1. Скласти програму яка буде знаходити суму ряду: 1+1/2+1/3+...+1/n. 2. Скласти програму яка буде знаходити факторіал числа !n = 1*2*3*...*n.
3. Скласти програму яка буде знаходити значення числа n у послідовності чисел.
Перше число в послідовності дорівнює х, а усі наступні знаходяться за
рівнянням x := 2x+5.
4. Скласти програму-гру: «Вгадай число».
Програма випадковим чином «загадує» число від 1 до 10, а користувач повинен
вгадати це число. Якщо користувач вказує число більше ніж загадав
комп'ютер, йому повинна виводиться підказка – «Менше», якщо на навпаки,
введе число менше – виводитиметься «Більше». У користувача є всього три
спроби. (это все в одном задании 8й класс)
var
i:integer;
s:real;
R,Q,P:arr;
X:array[0..3] of integer;
function Sum(a: arr): integer; {функция вычисления суммы элементов массива}
var i:integer;
begin
foreach i in a do {вычисляем сумму элементов по заданному правилу}
if (i>=2) and (i<=4) then Result :=Result+i
end; {результатом функции будет сумма}
begin
randomize; {заполняем массивы случайными числами}
for i:=1 to 10 do
begin
R[i]:=random(10);
Q[i]:=random(10);
P[i]:=random(10)
end;
write('R: '); {распечатываем содержимое массивов на экране}
for i:=1 to 10 do write(R[i],' ');
writeln;
write('Q: ');
for i:=1 to 10 do write(Q[i],' ');
writeln;
write('P: ');
for i:=1 to 10 do write(P[i],' ');
writeln; {а тут собственно само решение задачи}
X[1]:=Sum(R);{передаем в ф-цию Sum массив R, она считает сумму и записывает в Х1}
writeln('X[1]=',X[1]);
X[2]:=Sum(Q);{передаем в ф-цию Sum массив Q, она считает сумму и записывает в Х2}
writeln('X[2]=',X[2]);
X[3]:=Sum(P);{передаем в ф-цию Sum массив P, она считает сумму и записывает в Х3}
writeln('X[3]=',X[3])
end.