Найти в последовательности количество чётных, положительных, отрицательных чисел

@SAMuS · Регистрация: 28.01.2011

Author24 — интернет-сервис помощи студентам

Дана последовательность чисел заканчивающаяся на ноль, найти в ней: 1. количество чётных чисел 2. количество положительных чисел 3. количество отрицательных чисел

Там будут некоторое количество чисел, например: 2 8 -7 -2 8 9 0

И надо что бы вывело:
Кол-во чётных чисел= 4
Кол-во положительных чисел= 4
Кол-во отрицательных чисед= 2

@SuPeR XaKer · 28.01.2011, 23:42

Pascal

Uses
 CRT;
var
 i,a,kolot,kolpol,kolch:integer;
begin
i:=0;
kolpol:=0;
kolot:=0;
kolch:=0;
repeat
 inc(i);
 write('Ââåäèòå ',i,'-å ÷èñëî:=');
 readln(a);
  if a>0 then
   inc(kolpol)
  else
  if a<0 then
   inc(kolot);
  if (a<>0) and (a mod 2=0) then
   inc(kolch);
until a=0;
write('Êîë-âî ÷¸òíûõ ÷èñåë:=',kolch,'; Êîë-âî ïîëîæèòåëüíûõ ÷èñåë:=',kolpol,'; Êîë-âî îòðèöàòåëüíûõ ÷èñåë:=',kolot);
readkey
end.

@SAMuS 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 68
		1
	Найти в последовательности количество чётных, положительных, отрицательных чисел 28.01.2011, 23:35. Показов 1852. Ответов 1 Метки нет (Все метки) Дана последовательность чисел заканчивающаяся на ноль, найти в ней: 1. количество чётных чисел 2. количество положительных чисел 3. количество отрицательных чисел Там будут некоторое количество чисел, например: 2 8 -7 -2 8 9 0 И надо что бы вывело: Кол-во чётных чисел= 4 Кол-во положительных чисел= 4 Кол-во отрицательных чисед= 2 0

	28.01.2011, 23:42

Найти в последовательности количество чётных, положительных, отрицательных чисел

Решение