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

    С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать количество введённых чисел, каждое из которых делится нацело на 3 и оканчивается цифрой 2.
    Как составить такую задачу в паскале? Помогите пожалуйста

    • Автор:

      josie90

  • Ответ:

    var n,i,k,a: integer;

    begin

      readln(n);

      k:=0;

      for i:=1 to n do begin

        readln (a);

        if (a div 3 <> 0) and (a mod 10 = 2) then

          k:=k+1;

      end;

      writeln(k);

    end.

    • Отвечал:

      benignoozsy
    • 0

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

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