Положительные и отрицптельные 3 числа

19.11.2011, 22:13. **Показов** 1036. **Ответов** 2

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

Дано 3 целых числа вычислить сколько положительных сколько отрицательных.

@log(n) · 19.11.2011, 22:17

Сообщение от Gorlins

Дано 3 целых числа вычислить сколько положительных сколько отрицательных.

Pascal

var otr,pol,a,b,c:longint;
begin
writeln('Введите 3 целых числа:');
readln(a,b,c);
otr:=0;pol:=0;
if a>0 then pol:=pol+1
else if a<0 then otr:=otr+1;
if b>0 then pol:=pol+1
else if b<0 then otr:=otr+1;
if c>0 then pol:=pol+1
else if c<0 then otr:=otr+1;
write('Положительных чисел : ',pol,' отрицательных чисел : ',otr);
end.

@КонецСвета · 19.11.2011, 22:20

Pascal

uses crt;
var a,s,kp,ko: integer;
begin
s:=1;
while s<4 do
      begin
      write ('Введите число ');
      readln (a);
      if a>0 then inc (kp) else if a<0 then inc(ko);
      s:=s+1;
      end;
writeln ('Количество положительных ',kp);
writeln ('Количество отрицательных ',ko);
end.

Gorlins
		1
	Положительные и отрицптельные 3 числа 19.11.2011, 22:13. Показов 1036. Ответов 2 Метки нет (Все метки) Дано 3 целых числа вычислить сколько положительных сколько отрицательных.

	19.11.2011, 22:20

Положительные и отрицптельные 3 числа

Решение