Ввод последовательности

[Анастасияяя]

Ввод последовательности

вводится числовая последовательность, пока сумма веденных чисел не будет больше 100. Сколько чисел всего введено и сколько четных?

 

[Vladimir_S]

вводится числовая последовательность, пока сумма веденных чисел не будет больше 100. Сколько чисел всего введено и сколько четных?

Да пожалуйста, но вообще-то с подобными пустяками по форумам бегать... И чему Вы думаете так научиться? Впрочем, вопрос, как всегда, риторический...

Var
 N_tot, N_even, Sum, p:BYTE;
BEGIN
 N_tot:=0;
 N_even:=0;
 Sum:=0;
 Repeat
  Write('Next number, please: ');
  Readln(p);
  Sum:=Sum+p;
  If Sum<=100 then
   begin
    N_tot:=N_tot+1;
    if (p mod 2)=0 then N_even:=N_even+1;
   end;
 Until Sum>100;
 Writeln;
 Writeln('Total amount of numbers is ',N_tot);
 Writeln('Amount of even numbers is ',N_even);
 Readln;
END.