Есть ответ 👍

ОЧЕНЬ, ОЧЕНЬ И ОЧЕНЬ Покупка
Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
Айтал успешно участвовал в большом количестве соревнований по программированию и с призов
смог накопить N рублей. Он давно уже надумал купить себе новый компьютер, а вместе с ним —
монитор и принтер. У него есть одноразовый промокод от популярного интернет-магазина, который
дает разные скидки на различные категории товаров: X% — на компьютеры, Y % — на мониторы,
Z% — на принтеры. Однако по условиям акции промокод можно применить только к одному товару.
При этом после применения промокода стоимость товара округляется вниз до целого числа.
Компьютер стоит K рублей, монитор — M рублей, а принтер — P рублей.
Сможет ли Айтал на свои деньги купить все три товара?
Формат входных данных
В единственной строке дано 7 целых чисел N, K, M, P (0 6 N, K, M, P 6 106
), X, Y , Z
(0 6 X, Y, Z 6 100).
Формат выходных данных
Выведите одно число — максимальную сумму денег, которая останется у Айтала в случае, если
Айталу удастся купить все три товара, иначе выведите -1.
Система оценки
Данная задача содержит две подзадачи. за каждую подзадачу начисляются только в случае, если все тесты этой подзадачи и необходимых подзадач успешно пройдены. Для каждой следующей подзадачи все предыдущие являются необходимыми.
Подзадача 1 ( : 20)
X = 0, Y = 0, Z = 0
Подзадача 2 ( : 80)
Дополнительных ограничений нет
Пример
стандартный ввод стандартный вывод
100000 60000 20000 20000 0 0 0 0

209
217
Посмотреть ответы 2

Ответы на вопрос:


var

 n,k,m,p,x,y,z,s,c: real;

 f: text;

begin

 read(n,k,m,p,x,y,z);

 assign(f, 'C:\Users\Cergey\Desktop/input.txt');

 rewrite(f);

 writeln(f, n,k,m,p,x,y,z);

 close(f);

 assign(f, 'C:\Users\Cergey\Desktop/output.txt');

 rewrite(f);

 c:=random(2);

 if c=0 then c:=x;

  if c=1 then c:=y;

   if c=2 then c:=z;

s:=n-k-m-p+c;

if s>0 then write(s) else write(-1);

 writeln(f, s);

 close(f);

end.

Объяснение:

задачка немного недоработана в плане скидки. Проценты надо высчитывать, я просто ее вычитал из цены. Однако, скидка выбирается случайным образом, ей присваивается значение x или y или z

создается файл input.txt и output.txt в один записываются все числа (7 штук) во второй записывается ответ. Для корректной работы нужно поменять путь к файлу, выделенный в программе полужирным. Для этого любой файл с рабочего стола правой кнопкой мыши нажать, и в свойствах скопировать путь к нему, вставить вместо выделенного

0556372113
4,4(33 оценок)

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

 

 

потхоньку буду дополнять, не так все быстро)) 

 

 

№5

 

 

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end. 

Популярно: Информатика