Ребята, кто разбирается в программировании, помогите! Составьте программу, вычисляющую,...

Question

Ребята, кто разбирается в программировании, помогите!
Составьте программу, вычисляющую, сколько процентов от А+В-С приходится: а) на А б) на Б в) на В

Answer 1

Program s;
uses crt;
var
a,b,c,d,pa,pb,pc:real;
begin
writeln('Введите А: ');
read(a);
writeln('Введите В: ');
read(b);
writeln('Введите C: ');
read(c);
d:=a+b+c;
pa:=(a/d)*100;
pb:=(b/d)*100;
pc:=(c/d)*100;
writeln('На А приходиться ',pa:2:2,' на В ',pb:2:2,' на С ',pc:2:2); //значание округлены до 2 знаков
end.