Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Задание 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