В "PascalABC" нужна программа, которая определит % переменных. Вот условие: дано n (переменная для ввода, не затрагивается в ответе) учеников, после контрольной a-"5", b-"4", c-"3". Надо найти процент каждой оценки (числа в кавычках - цифровое обозначение оценки, не значение)
More Questions From This User See All
Answers & Comments
var a,b,c,d:integer;
proc:real;
begin
clrscr;
write('Введите кол-во «5» | ');
readln(a);
write('Введите кол-во «4» | ');
readln(b);
write('Введите кол-во «3» | ');
readln(c);
writeln('======================');
d:=a+b+c;
writeln('Всего оценок: ',d);
writeln('======================');
writeln('* Из них *');
proc:= (a*100)/d;
writeln('«5» - ', proc:0:2,' %');
proc:= (b*100)/d;
writeln('«4» - ', proc:0:2,' %');
proc:= (c*100)/d;
writeln('«3» - ', proc:0:2,' %');
end.
var
n,a,b,c,PerA,PerB,PerC :Real;
Begin
WriteLn ('Для начала нужны оценки, ведь какие-то ученики могли не написать к/р по какой-либо причине');
WriteLn ('Через пробел введи количество оценок "5", "4" и "3"');
ReadLn (a,b,c);
WriteLn ('И так, сейчас узнаем, сколько процентов различных оценок было:');
n:= a+b+c;
PerA:= (a*100)/n;
PerB:= (b*100)/n;
PerC:= (c*100)/n;
WriteLn ('"5" - ',PerA:0:1,'%');
WriteLn ('"4" - ',PerB:0:1,'%');
WriteLn ('"3" - ',perC:0:1,'%');
End.