Створіть програму, яка визначить загальну вартість покупки , суму знижки та загальну вартість покупки зі знижкою. Ви купуєте канцелярію однакову для всього класу:
Введіть кількість учнів в класі - (тип int)
Найменування однакової канцелярії для класу(ручки, олівці, маркери, зошити, блокноти)
Ви вводите ціну за один екземпляр – (тип float)
Визначити вартість виду канцелярії для всього класу.
Визначити загальну вартість канцелярії.
Знижки
Якщо ціна менша за 500 вивести повідомлення «Знижка відсутня. Ви не досягли мінімального порогу ціни.»
Сума від 500грн – 10%
Сума від 1000грн – 15%
Сума від 2000грн – 20%
Сума від 3000грн – 25%
Сума від 5000грн – 30%
Визначити вартість знижки.
Визначити загальну вартість покупки.
Если разрешение файла увеличили в три раза, а частоту дискретизации уменьшили в пять раз, значит объем файла был увеличен в три раза и уменьшен в пять.
Время передачи изменяется пропорционально объему файла, то есть, к примеру, увеличив объем в три раза, время передачи будет увеличено также в три раза.
В пункт А файл был передан за 50 секунд. Определим время передачи в пункт А нового (изменённого) файла.
50 * 3 / 5 = 30 секунд.
То есть если бы мы передавали измененный файл в пункт А, то он был бы передан за 30 сек.
Пропускная между А и Б в шесть раз выше, значит из пункта А в пункт Б файл был передан за
30 / 6 = 5 секунд.
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.