По м о г и т е ! у меня есть программа в паскале(работает), которой звучит так: подсчитать количество отрицательных чисел среди чисел a, b ,c. что такое k и выражение k: =k+1 ? program 13; uses crt; var a,b,c: real; k: integer; begin clrscr; write ('введите три числа -> '); read(a,b,c); write ('отричательных чисел '); if a< 0 then k: =k+1; if b< 0 then k: =k+1; if c< 0 then k: =k+1; if k=0 then write ('-нет') else write (k,' штук'); readln; end.

ванямна    3   18.05.2019 06:20    1