Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Подсчитать количество а) положительных,б) отрицательных,в)целых чисел среди чисел a,b,c

Ответ оставил Гость

Const eps=1e-8;
var a,b,c:real;
      s1,s2,s3:integer;
begin
read(a);
read(b);
read(c);
if a>0 then s1:=s1+1;
if b>0 then s1:=s1+1;
if c>0 then s1:=s1+1;
if a<0 then s2:=s2+1;
if b<0 then s2:=s2+1;
if c<0 then s2:=s2+1;
if frac(a)if frac(b)if frac(c)writeln(Число положительных чисел = ,s1);
writeln(Число отрицательных чисел = ,s2);
writeln(Число целых чисел = ,s3);
end.

/* Для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. При сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */