Вмагазине проводится акция при сумме покупки больше 1000 р, предлагается скидка 10%. ввести сумму покупки, вывести; 1) сообщение о том, предоставляется ли скидка 2)сумму к оплате написать программу в паскале

Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>1000
 then writeln('Предоставляется скидка 10%. Сумма к оплате = ',s*0.9)
 else writeln('Скидка не предоставляется. Сумма к оплате = ',s);
end.

Пример:
Сумма покупки = 2000
Предоставляется скидка 10%. Сумма к оплате = 1800

#include <iostream>

using namespace std;

int main()

{

int YBorn , YNow ;

cout <<"what year where you born in?"<<endl;

cin >>YBorn;

cout <<"what year is it now?"<<endl;

cin >>YNow;

int YOld=YNow-YBorn;

cout<<"at the end of the year:"<<endl;

cout << "you're " <<YOld << " years old"<<endl;

int MOld = YOld*12;

cout<< "and "<<MOld<<" month old"<<endl;

int DOld=YNow/4-YBorn/4+YOld*365;

cout<<"and "<<DOld<<" days old"<<endl;

int HOld=DOld*24;

cout<<"and "<<HOld<<" hours old"<<endl;

int MinOld=HOld*60;

cout<<"and "<<MinOld<<" minutes old"<<endl;

int SOld=MinOld*60;

cout<<"and "<<SOld<<" seconds old"<<endl;

cout<<"and "<<SOld<<"000 miliseconds old"<<endl;

system("pause");

return 0;

}

ответ: слово «SPAM» появилось в 1936 г. Оно расшифровывалось как SPiced hAM (острая ветчина) и было товарным знаком для мясных консервов компании Hormel Foods — острого колбасного фарша из свинины. Всемирную известность в применении к назойливой рекламе термин SPAM получил благодаря знаменитому скетчу с одноимённым названием из известного шоу «Летающий цирк Монти Пайтона» (1969) комик-группы Монти Пайтон, в котором слово «спам» в общей сложности упоминается более ста раз

Объяснение:ерез некоторое время слово «СПАМ» стало нарицательным, им стали называть все, что навязывалось вопреки желанию, в частности различные и прочую макулатуру рекламного характера, которой забивали почтовые ящики. А уже потом этим термином стали характеризовать ненужную рекламную корреспонденцию, рассылаемую по электронной почте.