Составить программу в Паскале:Найти наибольшее целое n такое что :a) 3n^4-730n<5b)...

Question

Составить программу в Паскале:

Найти наибольшее целое n такое что :
a) 3n^4-730n<5<br>b) e^n-1000Ln*n<=10<br>

Answer 1

1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
   n:integer;
   s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что                 результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do  <br>   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<br>   begin
   s:=exp(n)-1000*Ln(n);
   n:=n+1
   end;
writeln(n)
end.

Comments

а если Паскаль, самый древний, то как быть?

---

Тогда сделаю по-другому

---

В древнем, наверное, можно s объявить вместе с n как integer. Думаю, там компилятор не будет умничать)). Программу изменил, готово.

---

Все, полностью готово.

---

Спасибо большое)

---

поставлю лучший, как будут баллы

---

Ошибку увидел, там в строке "напиши так: s:=3*sqr(sqr(n))-730*n" скобки не хватало. Исправил. Ты тоже исправь, если уже переписала

---

Спасибо, мне баллы не нужны. Оставь себе, пригодятся еще))

---

:)

---

В предпоследней строчке в каждой проги надо вместо writeln(n) написать writeln(n-1)