Действительные числа - Помощь студентам

Ximer · 09.03.2009, 14:12

Вообщем запутался в условиях. Вот задача : "Даны три действительных числа A,b,C. Определите, сколько среди них отрицательных".

capta1n · 09.03.2009, 14:30

Код:

program xd;
const
 a : real = -12;
 b : real = -2;
 c : real = 5;
var
 i : 0..3;
begin
  if a<0 then inc(i);
  if b<0 then inc(i);
  if c<0 then inc(i);
  writeln(i);
  readln
end.

Ximer · 09.03.2009, 14:52

Большое спасибо.

09.03.2009, 14:12	#1
Ximer Пользователь Регистрация: 25.01.2009 Сообщений: 35	Действительные числа Вообщем запутался в условиях. Вот задача : "Даны три действительных числа A,b,C. Определите, сколько среди них отрицательных".

09.03.2009, 14:30	#2
capta1n Форумчанин Регистрация: 06.12.2008 Сообщений: 613	Код: `program xd; const a : real = -12; b : real = -2; c : real = 5; var i : 0..3; begin if a<0 then inc(i); if b<0 then inc(i); if c<0 then inc(i); writeln(i); readln end.`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Даны натуральные числа n,p, целые числа a1 , ... ,an.	Наталья111	Фриланс	10	09.11.2010 20:09
Даны натуральные числа m,n. Посчитать сумму m последнего числа n.	лялька	Паскаль, Turbo Pascal, PascalABC.NET	6	25.12.2008 15:22
Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где	Наталья111	Фриланс	7	23.12.2008 11:40
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа	Woland-itn	Паскаль, Turbo Pascal, PascalABC.NET	3	23.03.2008 21:49

09.03.2009, 14:52	#3
Ximer Пользователь Регистрация: 25.01.2009 Сообщений: 35	Большое спасибо.