Вмагазине проводится акция при сумме покупки больше 1000 р, предлагается скидка 10%. ввести сумму покупки, вывести; 1) сообщение о том, предоставляется ли скидка 2)сумму к оплате написать программу в паскале
Var s:real; begin write('Сумма покупки = '); readln(s); if s>1000 then writeln('Предоставляется скидка 10%. Сумма к оплате = ',s*0.9) else writeln('Скидка не предоставляется. Сумма к оплате = ',s); end.
Электрический обогреватель 1 Включенный электрический обогреватель нельзя оставлять возле процессора , так как он может перегрется и сгореть 2 Включенный электрический обогреватель нельзя оставлять возле монитора , так как он может перегрется и сгореть 3 Включенный электрический обогреватель нельзя оставлять возле проводов компьютера , так как они могут перегрется и случится короткое замыкание а то и пожар 4 Включенный электрический обогреватель нельзя оставлять возле компьютера , так как вы можете случайно его задеть и обжечся 5 Нельзя вставлять в розетку и включать обогреватель в одну пилотку с компьютером , так как из за обогревателя может произойти резкий скачок тока и компьютер не выдержит 6 И нельзя оставлять включенным обогреватель возле компьютера так как вы можете его случайно задеть и он может упасть и сжечь ваш ковер а то и квартиру
В скобках - система счисления (СС) Пример: 1001(2) - в двоичной системе счисления ^n - степень n - цифра Например: 2^8 - два в восьмой степени. A=10 B=11 C=12 D=13 E=14 F=15
begin
write('Сумма покупки = ');
readln(s);
if s>1000
then writeln('Предоставляется скидка 10%. Сумма к оплате = ',s*0.9)
else writeln('Скидка не предоставляется. Сумма к оплате = ',s);
end.
Пример:
Сумма покупки = 2000
Предоставляется скидка 10%. Сумма к оплате = 1800