yurkovam-037
?>

Решить, контрольная работа по языку программирования "разветляющийся алгоритм"

Информатика

Ответы

mirogall

пальма        попугай,

                туловище,

, ствол,          голова,

  листья,            клюв,

,   мякоть         крыло.

скорлупа        перо,

орех,          

молоко.            хвост,

                    нога,

 

                 

               

       

DmitrievnaVera
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 . */

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить, контрольная работа по языку программирования "разветляющийся алгоритм"
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

md-masya
uvarovig
goldservicepro
vera2job7
Look7moscow
александр496
Dragun1684
Tatyana-Sergeevna108
Ivanova.i.bkrasheninnikov
secretar62
ПетросовичЗаславский
mospaskrasnogorbukh
ajuli2
dmitzu8594
Андрей_Станиславовна