Створіть програму, яка визначить загальну вартість покупки, суму знижки та загальну вартість покупки зі знижкою.
Ви купуєте канцелярію однакову для всього класу:
Введіть кількість учнів в класі – (тип int)
Найменування однакової канцелярії для класу(ручки, олівці, маркери, зошити, блокноти)
Ви вводите ціну за один екземпляр – (тип float)
Визначити вартість виду канцелярії для всього класу.
Визначити загальну вартість канцелярії.
Знижки
Якщо ціна менша за 500 вивести повідомлення «Знижка відсутня. Ви не досягли
мінімального порогу ціни.»
Сума від 500грн – 10%
Сума від 1000грн - 15%
Сума від 2000грн – 20%
Сума від 3000грн - 25%
Сума від 5000грн – 30%
Визначити вартість знижки.
Визначити загальну вартість покупки.
Т.
A:array[1..1000] of integer;
B:array[1..3] of integer;
i,N:integer;
Begin
Write('N = ');ReadLn(N);
For i:= 1 to N do
Begin
Read(A[i]);
if A[i] mod 2 <> 0 then B[1]:=B[1]+A[i];
if A[i] mod 2 = 0 then B[2]:=B[2]+A[i];
End;
WriteLn;
For i:= 1 to N do
Write(A[i],' ');
B[3]:=B[1]+B[2];
WriteLn('B[1] = ',B[1]);
WriteLn('B[2] = ',B[2]);
WriteLn('B[3] = ',B[3]);
End.
или так:
Var
A:array of integer;
B:array[1..3] of integer;
i,N:integer;
Begin
Write('N = ');ReadLn(N);
A:=new integer[N];
For i:= 0 to N-1 do
Begin
Read(A[i]);
if A[i] mod 2 <> 0 then B[1]:=B[1]+A[i];
if A[i] mod 2 = 0 then B[2]:=B[2]+A[i];
End;
WriteLn;
For i:= 0 to N-1 do
Write(A[i],' ');
B[3]:=B[1]+B[2];
WriteLn('B[1] = ',B[1]);
WriteLn('B[2] = ',B[2]);
WriteLn('B[3] = ',B[3]);
End.
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге