Нужно в системе паскаль написать программу которая запрашивает 5 чисел и сообщает каких больше-положительных или отрицательных

113

438

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

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

Demongirl1

Информатика

4,6(13 оценок)

Var a,b,bz,sz: integer; begin b: =0; bz: =0; sz: =0; while (b< 5) do begin write('введите число ==> '); readln(a); if (a> 0) then bz: =bz+1; if (a< 0) then sz: =sz+1; b: =b+1; end; if bz> sz then writeln('больше положительных'); if sz> bz then writeln('больше отрицательных '); if sz=bz then writeln('число отрицательных и положительных одинаково' ); end.

magmet103p02l67

Информатика

4,4(52 оценок)

''' 1завдання '''while true: x = int(input("х < 0 верхньої точки: ")) if x > 0: print("ліва верхня точка не може бути додатньою! ") print(false)break y = int(input("у > 0 верхньої точки: ")) if y < 0: print("ліва верхня точка не може бути від'ємною! ") print(false)break x_1 = int(input("х > 0 нижньої точки: ")) if x_1< 0: print("права нижня точка не може бути від'ємною! ") print(false)break y_2 = int(input("у < 0 нижньої точки: ")) if y_2 > 0: print("права нижня точка не може бути додатньою! ") print(false)break tochka_x = int(input("введыть точку х: ")) tochka_y = int(input("введыть точку y: ")) print("координати прямокутника: ") print("точка а(",x,y,')',"точка b(",x_1,y,')') print("точка c(",x,y_2,')','точка d(',x_1,y_2,')') if (tochka_x < = x_1)and (tochka_y < = y): print("точка з координатами (",tochka_x,tochka_y,') належить заданому прямокутнику! ') elif (tochka_x < = x)and (tochka_y < = y): print("точка з координатами (",tochka_x,tochka_y,') належить заданому прямокутнику! ') elif (tochka_x < = x)and (tochka_y < = y_2): print("точка з координатами (",tochka_x,tochka_y,') належить заданому прямокутнику! ') elif (tochka_x < = x_1)and (tochka_y < = y_2): print("точка з координатами (",tochka_x,tochka_y,') належить заданому прямокутнику! ') else: print("точка з координатами (",tochka_x,tochka_y,') he належить заданому прямокутнику! ')""" 3 завдання """ c = int(input('це число просте? : ')) i = 2 b = false while i < c: i+=1 if c%2==0: b = true if b==true: print('нет') else: print('да')""" 4 завдання """ c = int(input('ведите сумму номеров прочитанных страниц: ')) suma = 0 i = 0 while suma< c: i+=1 suma += i if suma == c: print('номер последней прочитанной страницы - ',i) elif suma > c: print('сумма номеров прочитанных страниц не существует')""" 5 завдання """ mas = [] while true: a = float(input(' a = ')) if a == 0: break mas.append(a) print(mas) print("було введено ",len(mas),'чисел') print("минимальне число: ",min(mas))""" 2 завдання """ print("введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0): ") a = float(input("a = ")) b = float(input("b = ")) c = float(input("c = ")) discr = b ** 2 - 4 * a * c print("дискриминант d = %.2f" % discr) if discr > 0: from math import sqrt x1 = (-b + sqrt(discr)) / (2 * a) x2 = (-b - sqrt(discr)) / (2 * a) print("x1 = %.2f \nx2 = %.2f" % (x1, x2)) elif discr == 0: x = -b / (2 * a) print("x = %.2f" % x) else: print("корней нет")