В потоке чисел найти количество положительных и отрицательных 2у значных чисел, не используя массив

@Sk8erBoy · Регистрация: 22.03.2010

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

@SuPeR XaKer · 17.10.2010, 12:17

что есть

2у

@KhRom · 17.10.2010, 12:18

Может быть 2х значных чисел?

@Sk8erBoy · 17.10.2010, 12:22 **[ТС]**

да, двух значных, кнопочка не сработала

@Puporev · 17.10.2010, 12:54

Pascal

writeln('Вводите числа, окончание ввода 0:');
kpl:=0;kot:=0;
repeat
readln(n);
if abs(n) in [10..99] then
 begin
  if n>0 then kpl:=kpl+1
  else kot:=kot+1;
 end;
until n=0;
writeln('Положительных двухзначных=',kpl) ;
writeln('Отрицательных двухзначных=',kot) ;
readln
end.

@Sk8erBoy 2 / 2 / 0 Регистрация: 22.03.2010 Сообщений: 41
		1
	В потоке чисел найти количество положительных и отрицательных 2у значных чисел, не используя массив 17.10.2010, 12:16. Показов 661. Ответов 4 Метки нет (Все метки) В потоке чисел найти количество положительных и отрицательных 2у значных чисел, не используя массив 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	17.10.2010, 12:17	2
	что есть 2у 0

@KhRom 15 / 15 / 13 Регистрация: 17.10.2010 Сообщений: 69
	17.10.2010, 12:18	3
	Может быть 2х значных чисел? 0

@Sk8erBoy 2 / 2 / 0 Регистрация: 22.03.2010 Сообщений: 41
	17.10.2010, 12:22 [ТС]	4
	да, двух значных, кнопочка не сработала 0

	17.10.2010, 12:54

Опции темы