Помогите сосавтитть программу на Pascal

Question

Помогите сосавтитть программу на Pascal. В классе N учеников. После контрольной работы было A - пятёрок, B - четвёрок и C - троек. Найдите % троек, четверок и пятерок.

valera_balberov · Accepted Answer

var 
a, b, c, n: Real; 
begin 
WriteLn('Vvedite kolichestvo 3:'); 
ReadLn(c); 
WriteLn('Vvedite kolichestvo 4:'); 
ReadLn(b); 
WriteLn('Vvedite kolichestvo 5:'); 
ReadLn(a); 
WriteLn('Vvedite kolichestvo uchenicov:'); 
ReadLn(n); 
Writeln('% 3: ', c * 100 / n:2:2); 
Writeln('% 4: ', b * 100 / n:2:2); 
Writeln('% 5: ', a * 100 / n:2:2); 
end.

edvard_81 · Answer

что сделать? сосавтить? :D 
как грубо))))

skippi_10 · Answer

Ой санеееек.... =)))...нет штоб в лицее подойти-спросить.... хД

aleksei_koriakov_8 · Answer

var 
N, A, B, C Real; 
begin 
writeln("процент 5-ок", 100*A/N, "%"); 
writeln("процент 5-ок", 100*B/N, "%"); 
writeln("процент 3-tк", 100*C/N, "%"); 
end

user_21166990 · Answer

Совсем школота оборзела. . 
Уже и процентное соотношение не в состоянии вычислить. . 
Вот если ПОДРОБНО расскажешь как бы ты это сделал на карманном куркуляторе - тогда помогу сделать тоже самое на другом "куркуляторе" под именем паскаль)