Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
<span>a = int(input("a="))
b = int(input("b="))
c = int(input("c="))
d = int(input("d="))
print("2*(",a,"^2-",b,"^2) = ",2*(a^2-b^2))
print('(',a,'+',b,')*(',c,'+',d,')=',(a+b)*(c+d))
print('(2*',a,'+',b,')/',c,'-2*',d,'=',(2*a+b)/c-2*d)</span>
Ответ:
Дан в приложении.
Объяснение:
Я опирался на теорему Пифагора: в прямоугольном треугольнике квадрат гипотенузы равен сумме квадратов двух катетов.
А для нахождения площади была использована формула Герона:
Program student;
var
ocenka:byte;
begin
writeln('vvedite ocenku');
readln(ocenka);
case ocenka of
1: writeln('ochen ploho!');
2: writeln('ploho');
3: writeln('udovletvoritelno');
4: writeln('horosho');
5: writeln('otlichno');
end;
end.
Ответ: а) Антонов
1)Епанчин
2)Демидов
3)Гусев
4)Воробьев
5)Борисов
6)Антонов