Регистрация
саня1321
21.01.2022 08:12
Информатика
Есть ответ 👍

Написать программу пусть дано 100 вещественных чисел,которые вводятся по одному.найдите количество положительных,отрицательных и нулевых элементов.

106
140
Посмотреть ответы 2

Ответы на вопрос:

томара80
томара80
4,5(51 оценок)

1234567891011 cls for c = 1 to 100 print "vvedi chislo"; c; input ": ", n r = sgn(n) + 1 p(r) = p(r) + 1 nextprint string$(80, 196)print "pologitelnyh : "; p(2)print "otricatelnyh : "; p(0)print "nulevih : "; p(1)

tinapai
tinapai
4,4(46 оценок)

  выложу решение полного уровнения.

 

var a,b,c,d: integer; x1,x2: real; begin writeln('введите коэффициенты'); readln(a,b,c); d: =b*b-4*a*c; if (d< 0) then writeln('нет решения') else if (d=0) then begin x1: =-b/(2*a); writeln('x=',x1); end else begin x1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); writeln('x1= ',x1,'x2=',x2); end; readlnend.

 

 

Популярно: Информатика