Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
<span><span><span><span>
а)
A B C A-->B --B+C результат
0 0 0 1 1 1
0 0 1 1 1 1
0 1 0 1 0 0
0 1 1 1 1 1
1 0 0 0 1 0
1 0 1 0 1 0
1 1 0 1 0 0
1 1 1 1 1 1и далее в том же духе...</span></span><span /></span></span><span><span /></span>
Площадь находиться длинну умножить на ширину,а периметор все стороны надо сложить
1 - Надпись
2 - Эллипс
6 - Распылитель
10 - Масштаб