• Люди!!! Мне нужна помощь. Дам 50 баллов!!!!!!!!!!!!!!!!!!!!!!!!!!!! ПИСАТЬ НА ПАСКАЛЕАБС!!
    В эту программу надо сделать 2 функции Фибоначчи и Треугольные числа!!
    Вот сама программа!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    function Odd(a: integer): boolean;
    begin
    result := a mod 2 = 0;
    end;

    function Simple(a: integer): boolean;
    var
    i:integer;
    begin
    result:=true;
    i:=2;
    while (i <= a - 1) and result do
    begin
    if (a mod i = 0) then
    result:=false;
    i := i + 1;
    end;
    end;

    begin
    writeln('Введите число n');
    read(n);

    write('Число n ');
    if (Odd(n)) then writeln('чётное')
    else writeln('нечётное');
    if (Simple(n)) then writeln('простое')
    else writeln('составное');
    end.


    Если вам надо программы на Фибоначчи и треугольные числа. Смотрите ниже!!
    Это Фибоначчи!
    var
    n,f,i,f1,f2:integer;
    begin
    read(n);
    if (n = 0) or (n = 1) then
    begin
    write(n, ' число фибоначчи: 1');
    end
    else begin
    f1:= 1;
    f2:= 1;
    for i := 2 to n do
    begin
    f := f1 + f2;
    f2:= f1;
    f1:=f;
    end;
    write(n,' число фибоначчи: ',f);
    end;
    end.


    Это Треугольные числа!!!!!!!!!!
    var
    a,n,S:integer;
    begin
    writeln('Введите число n');
    read(n);
    S:=0;
    for a:=1 to n do
    S:= a + S;
    writeln('Сумма треугольных чисел ', S);
    end.

Ответы 1

  • Скорее всего, имелось в виду то, что представлено в прилагаемом файле.
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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