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 штук) во второй записывается ответ. Для корректной работы нужно поменять путь к файлу, выделенный в программе полужирным. Для этого любой файл с рабочего стола правой кнопкой мыши нажать, и в свойствах скопировать путь к нему, вставить вместо выделенного
