• Вопрос по информатике:

    ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 70 БАЛЛОВ для N введенных с клавиатуры чисел найти сумму положительных, кратных 3

    • Автор:

      skyler

  • program raf105;

    var a,b:integer;

    begin

    writeln('Вводите числа по очереди');

    writeln('Чтобы закончить введите 0');

    a:=1;

    while a<>0 do

    begin

     readln(a);

     if (a>0) and ((a mod 3)=0)

       then b:= b+a;

    end;

    writeln('Сумма положительных чисел, кратных трём: ',b);

    end.

    Язык программирования PascalABC

    • Отвечал:

      giluooi
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска