В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Артем15227897
Артем15227897
18.01.2022 10:42 •  Информатика

Створіть програму, яка визначить загальну вартість покупки , суму знижки та загальну вартість покупки зі знижкою. Ви купуєте канцелярію однакову для всього класу:

Введіть кількість учнів в класі - (тип int)
Найменування однакової канцелярії для класу(ручки, олівці, маркери, зошити, блокноти)
Ви вводите ціну за один екземпляр – (тип float)
Визначити вартість виду канцелярії для всього класу.
Визначити загальну вартість канцелярії.
Знижки

Якщо ціна менша за 500 вивести повідомлення «Знижка відсутня. Ви не досягли мінімального порогу ціни.»
Сума від 500грн – 10%
Сума від 1000грн – 15%
Сума від 2000грн – 20%
Сума від 3000грн – 25%
Сума від 5000грн – 30%
Визначити вартість знижки.

Визначити загальну вартість покупки.

Показать ответ
Ответ:
kristinka127
kristinka127
30.06.2021 20:43
{ Пример программы для процедуры FloodFill } 
Uses Graph,Crt; 
Var Gd, Gm : Integer; 
Begin 
Gd:=Detect; 
InitGraph(Gd, Gm, ''); 
If GraphResult <> grOk Then Halt(1); 
SetColor(GetMaxColor); 
Circle(50, 50, 20); 
FloodFill(50, 50, GetMaxColor); 
Readkey; 
CloseGraph; 
End. 

Procedure FloodFill(X, Y : Integer; Border : Word); 
Закрашивает замкнутую область, используя текущие стиль и цвет закраски. 

Procedure SetFillStyle(Pattern : Word; Color : Word); 
Устанавливает цвет и стиль закраски. 

Procedure SetColor(Color : Word) 
устанавливает текущий цвет, 
0,0(0 оценок)
Ответ:
vvkim87
vvkim87
29.08.2021 05:47
Программа на Pascal
 var   Age : integer;
begin Repeat Write('Введите Ваш возраст: ');
Readln(Age); until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет')
else    case Age mod 10 of    1: Writeln('Мне ', Age, ' год');    
2, 3, 4 : Writeln('Мне ', Age, ' года');    
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
программа на C++
#include <iostream> 
using namespace std; 
int main() 

setlocale(LC_ALL,"rus"); 
int k; 
cin>>k; 
if(k >0 && k<100) 
cout<<"Мне "<< k <<" лет"; 
system("pause >> void"); 
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота