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

Анастасияяя · 12.09.2011, 19:51

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

Vladimir_S · 12.09.2011, 21:36

Цитата:

Сообщение от Анастасияяя

вводится числовая последовательность, пока сумма веденных чисел не будет больше 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.

12.09.2011, 19:51	#1 (permalink)
Анастасияяя Новичок Регистрация: 12.09.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ввод последовательности вводится числовая последовательность, пока сумма веденных чисел не будет больше 100. Сколько чисел всего введено и сколько четных?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070