• 02 December 2013
    • Химия
    • Автор: Anatsasialehmann

    Написать программу из 2 частей. В основной программе посчитать сумму факториалов всех нечетных чисел с 1 до 9. Подсчет факториалов реализовать в функции


    • 02 December 2013
    • Ответ оставил: Slavakrailo

    Program gt;
    var i,s,l:integer;
    function IOI(a:integer):integer;
    begin
    if(a mod 2=1)then IOI:=1 else IOI:=0;
    end;
    begin
    s:=1;
    l:=1;
    for i:=2 to 9 do
    begin
    if(IOI(i)=1)then begin
    l:=l*i*(i-1);
    s:=s+l;
    end;
    end;
    writeln(s);
    end.

    Оцените ответ
    • 02 December 2013
    • Ответ оставил: Егор15

    На Visual Basic с массивом
    Sub Program
    Dim A(10) As Integer, i As Integer, S As Long
    S = 0
    For i = 1 To 9 Step 2
    A(i) = i
    S = S + Fact(A(i))
    Next i
    Text1.Text = S
    End Sub

    Function Fact(n)
    Dim i As Integer
    Fact = 1
    For i = 1 To n
    Fact = Fact * i
    Next i
    End Function

    Почему во всех институтах изучают Pascal, 
    если программы на Basic короче и быстрее работают?

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы

Ответ на вопрос Написать программу из 2 частей. В основной программе посчитать сумму факториалов всех нечетных чисел с 1 до 9. Подсчет факториалов реализовать в функции - Вопросов.Нет

404