Написать программу, согласно варианту, которая по введенному значению аргумента вычисляет зна-чение функции, заданной в виде графика и выводит его на экран. Параметр R вводится с клавиатуры.
Var x,nb,nm,z,xm,xb : longint; h,g,k : integer; begin writeln('Введите количество больших коробок.'); readln(nb); writeln('Введите количество маленьких коробок.'); readln(nm); writeln('Введите количество товара в больших коробках.'); readln(xb); writeln('Введите количество товара в маленьких коробках.'); readln(xm); writeln('Сколько товара помещается в вагон?'); readln(x); z:= nb*xb +nm*xm; if z <= x then writeln('Все изделия поместятся в один вагон') else begin h := z div x; writeln('количество вагонов для погрузки всех товаров = ',h); end; g:= z div nb;k:= z div nm; writeln ('освободиться ',g,' больших или ',k,' маленьких коробок'); end.
15 учеников14 любят ходить в кинотеатр. триллер- 6 учеников, фэнтези- 5 учеников,комедию- 10 1 ученик смотрит только триллеры,2 ученика смотрят только фэнтези, 5 учеников смотрят только комедии 3 ученика смотрят и триллеры и комедии1 ученик –и фэнтези, и комедиириллеры и фэнтези не смотрит ни один ученик
1 только триллеры 2 только фэнтези5 только комедии 15 - 1 - 8 = 6 6 человек
5 триллер3 фэнтези5 комедии 1 ученик –и фэнтези, и комедии т.е.осталось 5 триллер2 фэнтези4 комедии 3 ученика смотрят и триллеры и комедиит.е. осталось 2 триллер2 фэнтези 1 комедии т.е. получается 1 смотрит все1 смотрит триллер1 смотрит фэнтези+1+3и + те 8 учеников которые смотрят1 только триллеры 2 только фэнтези5 только комедии
x,nb,nm,z,xm,xb : longint;
h,g,k : integer;
begin
writeln('Введите количество больших коробок.');
readln(nb);
writeln('Введите количество маленьких коробок.');
readln(nm);
writeln('Введите количество товара в больших коробках.');
readln(xb);
writeln('Введите количество товара в маленьких коробках.');
readln(xm);
writeln('Сколько товара помещается в вагон?');
readln(x);
z:= nb*xb +nm*xm;
if z <= x then
writeln('Все изделия поместятся в один вагон')
else
begin
h := z div x;
writeln('количество вагонов для погрузки всех товаров = ',h);
end;
g:= z div nb;k:= z div nm;
writeln ('освободиться ',g,' больших или ',k,' маленьких коробок');
end.