№ - номер раствора
NPK - [N]Натрий;[P]Фосфор;[K]Калий (содержание веществ измеряемых в милиграммах в 1мл раствора)
Это тебе на Pascal'e сделать надо?
перенесено в Задачи на заказ
Program fre;
const
nmax=10;
l=3;
var
c:array[1..nmax,1..nmax] of real;
b:array[1..nmax] of real;
i,j:integer;
n,p,k,s1,s2,s3,r:real;
Begin
Writeln('rastvor = ');
for i:=1 to l do
for j:=1 to l do
readln(c[i,j]);
writeln('ñêîëüêî 1 ðàñòâîðà');
read(n);
writeln('ñêîëüêî 2 ðàñòâîðà');
read(p);
writeln('ñêîëüêî 3 ðàñòâîðà');
read(k);
i:=1;
for j:=1 to l do
c[i,j]:=c[i,j]*n;
i:=2;
for j:=1 to l do
c[i,j]:=c[i,j]*p;
i:=3;
for j:=1 to l do
c[i,j]:=c[i,j]*k;
r:=0;
for j:=1 to l do
begin
for i:=1 to l do
begin
r:=r+c[i,j];
writeln®;
end;
b[j]:=r;
r:=0;
end;
writeln('otvet');
for j:=1 to l do
writeln(b[j]);
end.
давай спишемся в ICQ 242-154-959
Вобщем смысл задачи в том чтобы найти из задаваемого пользователем "конечного результата" необходимое кол-во каждого из 3х растворов в мл.Ответ не обязательно должен быть точным,он должен быть максимально приближен к задаваемым параметрам и не превышать их.