1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
n:integer;
s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do
begin
s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
n:=n+1
end;
writeln(n)
end.
2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
begin
s:=exp(n)-1000*Ln(n);
n:=n+1
end;
writeln(n)
<span>end.</span>
Пословицы:
1. Горе - как море, берегов не видно.
ключ = 4
Жтфи - одо ртфи, еифижтё си ёмзст.
2. У худой птицы худой и голос.
ключ = -2
С усвмз нржфщ усвмз ж бмймп.
3. Был у тёщи, да рад утёкши.
ключ = 3
Дюо ц хиьл, жв увж цхиныл.
Поговорки:
1. Что в лоб, что по лбу.
ключ = 10
Бьш л хшк, бьш щш хкэ.
2. Шила в мешке не утаишь.
ключ = -5
Уджы э зауёа иа оныдух.
import math
def f(u, t):
if (u < 2 * t):
m = u ** (-1) - t ** (-1)
return m
elif (u > 2 * t):
m = (u - t) ** 2
return m
else:
m = (2 * u + 5 * t) / 3
return m
x = float(input("x: "))
y = float(input("y: "))
z1 = f(math.fabs(math.log(x) + y) ,math.sin(y - x) / math.acos(x / y))
z2 = math.cos(math.sqrt(f(math.exp(y), (2 * x - 1) ** 3)))
z3 = math.tan(f(y / x, math.asin(x / y)))
print(z1 + z2 + z3)