Помогите решить задачу! Вычислить выражение с использованием стандартных функций языка Pascal : В классе N учеников. После контрольной было получено: A - пятерок, B - четверок, C - троек. Найти процент троек, четверок и пятерок.
Answers & Comments
Nelleon
Var N,A,B,C : integer; begin writeln ('Количество человек в классе:'); readln(N);
writeln ('Количество пятёрок:'); readln (A);
writeln ('Количество четвёрок:'); readln(B);
writeln ('Количество троек;'); readln(C);
writeln ('Процент пятёрок: ', A*100 div N,'% ', 'Процент четвёрок: ', B*100 div N, '% ', 'Процент троек: ',C*100 div N, '% '); readln;
Answers & Comments
begin
writeln ('Количество человек в классе:'); readln(N);
writeln ('Количество пятёрок:'); readln (A);
writeln ('Количество четвёрок:'); readln(B);
writeln ('Количество троек;'); readln(C);
writeln ('Процент пятёрок: ', A*100 div N,'% ', 'Процент четвёрок: ', B*100 div N, '% ', 'Процент троек: ',C*100 div N, '% '); readln;
end.