Program
pr1;
uses
graph,crt;
var
gd,gm:integer;
begin
gd:=0;gm:=0;
initgraph(gd,gm,
'c:\bp\bgi');
setcolor(12);
circle(200,200,50);
line(200,202,200,175);
line(200,202,180,202);
arc(200,150,0,180,15);
line(190,250,155,265);
line(210,250,240,265);
line(155,265,240,265);
outtextXY(193,155,'12');
outtextXY(195,235,'6');
outtextXY(235,200,'3');
outtextXY(155,200,'9');
readln;
readln;
<span>closegraph;
end.</span>
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
Числа в диапазоне -10 < n < 10, оканчивающиеся на 5 - это -5 и 5, других чисел нет. Ясно, что из сумма нулевая. Смешное какое-то задание.
begin
Writeln(-5+5)
end.
I = log2<span> K , эта формула имеет также расширенный вид </span>
Условия состоящие в ещё одно условие называются вложенными.
Например цикл for в for:
1)for i:=1 to 10 do
2)for a:=1 to 10 do
writeln(i+a);
2 цикл for является вложенным,так же его можно назвать внутренним,а 1 цикл for внешним.