var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
Условия состоящие в ещё одно условие называются вложенными.
Например цикл for в for:
1)for i:=1 to 10 do
2)for a:=1 to 10 do
writeln(i+a);
2 цикл for является вложенным,так же его можно назвать внутренним,а 1 цикл for внешним.
Любого графического редактора? Ластик , заливка , пипетка( она же выбрать уже существующий на экране цвет) , лупа , карандаш , кисточка , распылитель ,палитра.
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
10, 2, 8, 16 и есть основание у них.