Задача 3 Определить скидку в оплате товара, если стоимость покупки более 10000
грн., то 10%, если более 7000 грн., то 5%, иначе скидки нет.
№
Наименование
Цена
Количество
Стоимость
1
Яблоки
25
100
2
Груши
27
80
3
Апельсины
20
150
Стоимость
Скидка
К оплате
Задача 4
Определить надбавку за стаж работы. Если стаж более 25 лет, то 30%
оклада, если более 15 лет, то 15%, иначе надбавки нет.
№
Дата приема
Стаж
Оклад
Надбавка
Итого
1
01.05.78
2
03.06.89
3
04.10.65
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
Append(OutFile)
Result:=(-b + sqrt(D)) / 2 * a
Write(OutFile,Result)
Write("Корень уравнения")
WriteLn(Result)
if (D>0) then
Result:=(-b - sqrt(D)) / 2 * a
Write(OutFile, Result)
Write("Второй корень уравнения")
Write(Result)
End;
End.
chuslo = [random.randint(0,500) for x in range(1000)]
five = []
for i in chuslo:
if i %5==0:
five.append(i)
five.sort()
five.reverse()
print(five)
[500, 500, 500, 495, 495, 495, 490, 485, 485, 480, 475, 470, 470, 470, 470, 465, 465, 460, 460, 460, 460, 455, 455, 455, 450, 450, 450, 450, 445, 440, 440, 435, 430, 430, 425, 425, 425, 425, 420, 420, 420, 420, 420, 415, 415, 405, 405, 395, 395, 395, 390, 385, 385, 380, 380, 375, 370, 365, 365, 360, 360, 360, 360, 355, 355, 355, 350, 350, 350, 345, 340, 335, 330, 330, 330, 330, 325, 325, 325, 320, 320, 315, 315, 315, 310, 310, 310, 310, 305, 305, 295, 295, 290, 280, 280, 280, 275, 275, 275, 275, 270, 260, 260, 255, 245, 240, 235, 230, 230, 225, 220, 220, 215, 215, 210, 210, 210, 205, 205, 205, 205, 205, 200, 200, 195, 195, 195, 190, 180, 175, 175, 175, 175, 170, 170, 160, 160, 160, 155, 155, 150, 145, 145, 140, 135, 135, 130, 130, 125, 125, 120, 120, 120, 110, 105, 100, 100, 100, 100, 95, 95, 90, 90, 85, 85, 80, 80, 80, 75, 70, 70, 65, 65, 65, 60, 45, 45, 45, 35, 30, 30, 20, 15, 10, 10, 10, 10, 0]