В "PascalABC" нужна программа, которая определит % переменных. Вот условие: дано n...

Question

В "PascalABC" нужна программа, которая определит % переменных. Вот условие: дано n (переменная для ввода, не затрагивается в ответе) учеников, после контрольной a-"5", b-"4", c-"3". Надо найти процент каждой оценки (числа в кавычках - цифровое обозначение оценки, не значение)

Answer 1

Uses crt;var a,b,c,d:integer;proc:real;beginclrscr;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.

Comments

uses crt;
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.

---

О, спасибо, жаль что сейчас не получится проверить, но реал огромное спасибо.

---

Проверил, работает. Кстати, до экрана мы не дошли, программа для случая " без "clrscrn" " будет выглядеть так:

---

Program Ocenki;

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.