Напишите программу, которая в последовательности натуральных чисел определяет количество...

Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числаНапишите школьный длинный вариант

Comments

begin var f: integer-> boolean := x -> ((x mod 3 = 0) and (x mod 10 = 2)); var s := ReadSeqInteger(ReadInteger()); s.Where(x -> f(x)).Count.Println;end.

---

пасиб

---

но почему та не ответила как обычно?

---

баллы бы получила

---

begin var n: integer; Read(n); var x: integer; var Count := 0; for var i := 1 to n do begin Read(x); if (x mod 3 = 0) and (x mod 10 = 2) then Count += 1 end; Write(Count)end.

Answer 1

Var

  size: integer;

  counter: integer;

  mas: array of integer;

   

Begin  

  Write('Введите количество чисел в последовательности: ');

  Readln(size);

   

  if (size > 0) then

  begin

     Writeln();

     SetLength(mas, size);

     

     for var i := 0 to size - 1 do

     begin

        Write('Введите ', i + 1, ' число: ');

        Readln(mas[i]);

         

        if ((mas[i] mod 3 = 0) and (mas[i] mod 10 = 2)) then

           counter := counter + 1;

     end;

     

     Writeln();

     Writeln('Ответ: ', counter);

  end

   

  else

     Writeln('Количество чисел должно быть больше нуля!');

   

End.

---