• Напишите на паскале. Задание: Среди первых N чисел Трибоначчи вывести на экран только кратные 3.

Ответы 6

  • Нет, далеко не все так просто. Там проблема выравнивания мантисс серьезная весьма.
  • Чтобы всего лишь сложить 2е20 и 3е-30, нужно 50-значное целое
  • И не забываем, что надо еще все операции перегрузить. Для const+T, T+T, T+const, real+T, T+real, integer+T, T+integer и т.д. И это было только для сложения. А еще ведь функции, кроме других операций
    • Автор:

      arnav
    • 5 лет назад
    • 0
  • С дробями у меня же var a,b:Frac; var c:=a+b+a/b;
    • Автор:

      joaquím
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1439 от 09.05.2017var  N: integer;function tri(n: integer): longint;begin  case n of    0,1: tri := 0;    2: tri := 1  else    tri := tri(n - 3) + tri(n - 2)+tri(n-1);  end;end;var  a: array of integer;  i: longint;begin  readln(N);  setlength(a, N);  for i := 0 to N-1 do    Write(tri(i) + ' ');  for i := 0 to N-1 do    a[i] := tri(i);  writeln('');  for i := 0 to N-1 do    if a[i] mod 3 = 0 then      write(a[i] + ' ');end.
    • Автор:

      wallace74
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!function Tribonacci(n:integer):integer;begin  case n of  0,1:Result:=0;  2:Result:=1;  else Result:=Tribonacci(n-3)+Tribonacci(n-2)+Tribonacci(n-1)  endend;begin  SeqGen(ReadInteger('n='),i->Tribonacci(i)).Where(k->k mod 3=0).Printlnend.Примерn= 200 0 24 81 504 927
    • Автор:

      karenxhik
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years