Ergänze das Adjektiv mit oder ohne Endung. Manche Adjektive kannst du zweimal verwenden.
296
395
Ответы на вопрос:
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)< eps then s3: =s3+1; if frac(b)< eps then s3: =s3+1; if frac(c)< eps then s3: =s3+1; writeln('число положительных чисел = ',s1); writeln('число отрицательных чисел = ',s2); writeln('число целых чисел = ',s3); end. /* для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. при сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */
Популярно: Немецкий язык
-
21alex148818.04.2023 04:33
-
sashazen0317.12.2021 00:21
-
LavaGuy11130.11.2021 08:57
-
lovemopeio04.07.2021 19:19
-
lev212104.01.2021 10:38
-
малака26.03.2020 20:00
-
af104501720221.01.2021 08:57
-
Violetta2004w27.05.2023 04:19
-
Ардак0000000007.05.2021 06:37
-
Миша311109.08.2021 13:01