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

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

  1. sakartuelo

    sakartuelo New Member

    с клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение отрицательных чисел делящихся на3
     
    sakartuelo, 3 мар 2010
    #1
  2. Yura_sam

    Yura_sam New Member

    var x,s,p:integer;
    begin
    p:=1;
    while s<300 do begin
    readln(x);
    if x mod 3=0 then p:=p*x;
    s:=s+x;
    end;
    if p<>1 then writeln(p) else writeln('0');
    end.
     
    Yura_sam, 3 мар 2010
    #2

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

Наша группа