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

Question

Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих 22. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 22.

Comments

ДЛЯ ABCD PASCAL

Answer 1

using System;

namespace Application

{

class MainClass

{

 public static void Main (string[] args)

 {

 int x = 1;

 int k = -1;

 int b = 0;

 while (x != 0) {

   Console.WriteLine ("Введите число:");

   x = Convert.ToInt32(Console.ReadLine ());

   k++;

   if (x > 0 && x < 23 && x % 2 == 0) {

   b = b + x;

   }

 }

 Console.WriteLine ("Длина последовательности: " + k);

 Console.WriteLine ("Сумма положительных чётных чисел, не превосходящих 22: " + b);

 Console.ReadLine ();

 }

}

}

Comments

ДЛЯ ПАСКАЛЯ

---

В условии задачи этого сказано не было

Answer 2

Program n_1;

var x, n, s: integer;

begin

   x:=-1;

   s:=0;

   read(x);

   if x=0 then writeln('0 0')

   else begin

       n:=0;

       while x<>0 do begin

           n:=n+1;

           if(x>0) and (x<=22) and (x mod 2 = 0) then s:=s+x;</p>

           read(x);

       end;

       writeln(n, ' ', s);

   end

end.