Найдите сумму s...

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

  1. Osmi

    Osmi New Member

    Найдите сумму s и произведение p целых чисел от 1 до n чисел кратных 3ПОМОГИТЕ ПОЖАЛУЙСТА!
     
    Osmi, 4 апр 2010
    #1
  2. RomanBY

    RomanBY New Member

    var
      n, p, s, i: integer;
    begin
      p := 1;
      write('Введите n: ');
      read(n);
      for i := 1 to n do
        if i mod 3 = 0 then
         begin
          s := s + i;
          p := p * i;
         end
        else p:=0;
    writeln('Сумма: ', s, '; произведение: ', p);   
    end.
     
    RomanBY, 4 апр 2010
    #2

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

Наша группа