Суть программы:
Сначала мы заполняем массив(в данной задаче ошибка в описании массива, там [1..6], а позже присваивают значение M[7], нужно исправить на [1..7] ). Далее у нас имеется цикл For k:= 2 to 7, который,начиная с M[2] проверяет условие: M[k] < n, т.е. элемент нашего массива меньше, чем n(которое изначально равно 15),если условие верно, то мы n присваиваем значение элемента массива, а в переменной z запоминаем индекс этого самого элемента. В конце мы выясним, что наименьший элемент массива равен 6(n=6), а его индекс равен 5(z=5).
P.S. Надеюсь, что доступно объяснил :)
Var n:integer;
b:boolean;
begin;
readln(n);
if frac(sqrt(n))=0 then b:=true else b:=false;
writeln(b);
<span>end.</span>
А)а*х*х+b*x+c;
б)v+(a*t*t/2);
в)1/2(а+б)*h;
*-это знак умножения .Но записывать надо как*только посередине.и еще г) и д) я еще не проходила.
Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.
Пример:
n = 5
p = 3.06944444444444