Умоляю , помогите с этими двумя задачами. .. Мы такое в школе практикуем , я в этом...

Question

Умоляю , помогите с этими двумя задачами. ..
Мы такое в школе практикуем , я в этом ничего не понимаю...
Очень надеюсь на вашу помощь!!
(Задачи решить в Турбо паскале)

---

Comments

ну надо мне

---

Раз не объясняете толком, то ждите, может кто и захочет решить.

---

alvikp, вот у меня тогда тоже вопрос , зачем бугалтеру изучать программирование? я же не виновата , что мы должны пройти информатику . потом информатики не будет. мне только этот долг сдать надо и закрыть незачет :((((((

---

риши пожалуйста:(

---

Все мои знакомые бухгалтеры сейчас плачут крокодиловыми слезами, что в свое время не изучали программирование! Потому что сидят с компьютерной бухгалтерией и ничего в ней не понимают. А кто чуть старше на должности просто бухгалтера - их заставляют в Excel делать отчетность. Или увольняться.

---

alviko риши пожалуйста если можешь

---

Похоже, Вы не только информатику не учите... дважды рЕши написали через "и"...

---

Да и формула у Вас неправильная в Задании. Дважды описано f1=1, зато нет f0

---

ну реши пожалуйста,если не сложно

---

С русским у меня хорошо . Просто с телефона не очень удобно писать)

Answer 1

Задание 1. На самом деле в нем ошибка. Числ Фибоначчи определены начиная с f0=1, а в задании дважды указано f1=1.

uses Crt;
var
  k,n,f0,f1,fk:longint;
begin
  ClrScr;
  f0:=1; f1:=1; k:=2;
  Write('n='); Read(n);
  Write(f0,' ',f1);
  while k<=n do begin<br>    fk:=f0+f1; f0:=f1; f1:=fk; Inc(k);
    Write(' ',fk)
  end;
  Writeln;
  ReadKey
end.

Тестовое решение:
n=20
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946

Задание 2.
uses Crt;
var
  P:real;
  M:char;
  s:string;
begin
  ClrScr;
  Write('P='); Readln(P);
  Write('M='); Readln(M);
  Str(P:0:0,s);
  s:=Copy(s,1,3);
  if Pos(M,s)>0 then Writeln('Yes') else Writeln('No');
  ReadKey
end.

Тестовое решение:
P=54231.70475438
M=4
Yes