составьте алгоритм нахождения...

Тема в разделе "Информатика", создана пользователем Emargo, 22 мар 2010.

  1. Emargo

    Emargo New Member

    составьте алгоритм нахождения произведения всех четных чисел от 0 до 100
     
    Emargo, 22 мар 2010
    #1
  2. IMARME

    IMARME New Member

    Программа на Pascal выглядит так:

    Program Product;
    Var i: Integer;
    r: LongInt;
    Beginr := 1;
    For i := 0 To 100 Do
    If i Mod 2 = 0 Then
    r := r * i;
    WriteLn('Результат: ', r);
    ReadLn;
    End.

    Но так как нуль - тоже чётное, то всё произведение будет равно 0.
     
    IMARME, 22 мар 2010
    #2

Поделиться этой страницей

Наша группа