с клавиатуры вводятся...

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

  1. FiLLiPPoK

    FiLLiPPoK New Member

    с клавиатуры вводятся 10 чиселю найдите произведения делящихся среди них на 3. программа,помогитееее написатьее
     
    FiLLiPPoK, 3 мар 2010
    #1
  2. Oxide

    Oxide New Member

    var a:array[1..10]of integer;
    i,s:integer;
    begin
    s:=1;
    for i:=1 to 10 do begin
    readln(a);
    if a mod 3=0 then s:=s*a;
    end;
    writeln(s);
    end.
     
    Oxide, 3 мар 2010
    #2

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

Наша группа