100 Кг. = 100% Значит 1 кг. - 1% значит через 21 день дама весит 79 кг что менее 80 кг.
var
A,B,C,D,L,S: integer
F,K,Q:integer;
begin
writeln("введите A");
readln(A);
writeln("введитеB");
readln(B);
writeln("введитеC");
readln(C);
writeln("введитеD");
readln(D);
writeln("введите M");
readln(M);
writeln("введите N");
readln(N);
writeln("введите L");
readln(L);
writeln("введите S");
readln(S);
F:=A*4 *B - (C*D+M*N);
K:=0,01L*S;
Q:=F/K;
writeln("кол-во рулонов = ",Q );
end.
Var
x:real;
Begin
Write('x = ');
ReadLn(x);
Write('f(',x,') = ',4*Cos(2*x)*Sin(2*x)-7.1*x*x*x+sqrt(x))
End.
3 координаты
Ось х - длина
Ось у - ширина
Ось z - высота