Здравствуйте. У меня вот возникла одна проблемка, кто может помогите пожалуйсто.
Нужно расчитать процент успеваемости студентов, но у меня паскаль постоянно ругается на проценты, а именно на (*100%/с) в формуле w:=((a*d)+(b*e))*100%/c; как эту проблему решить?
Вот код.
Код
program A;
var
a,b,c,d,e,w:real;
begin
a:=5;
b:=4;
writeln('Vvedite kol-vo 5-ok');
readln(d);
writeln('Vvedite kol-vo 4-ok');
readln(e);
writeln('Vvedite kol-vo studentov');
readln(c);
w:=((a*d)+(b*e))*100%/c;
wreatln('procent yspevaemosty=',w,'%');
readln;
end.
Зарание спасибо.
