Question

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

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
    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