четвертая похоже так решается, хотя, повторюсь, условие корявое, может и не так...


uses crt;
var q1, q2, n1, n2, w, w1, w2: real;
begin clrscr;
writeln('q1');
readln(q1);
writeln('q2');
readln(q2);
writeln('n1');
readln(n1);
writeln('n2');
readln(n2);
W1:=q1/n2;
W2:=Q2/N2;
W:=((W2-W1)/W1)*100;
writeln(w1);
writeln(w2);
writeln(w:6:4);
readln;
end.
Последний раз сообщение редактировалось пользователем Alligator 01.12.2005 в 18:40

Адрес поста | Один пост | Сообщить модератору | IP: Logged