Var
n: integer;
procedure WriteNSymbols(n: integer; c: char);
var
i: integer;
begin
for i := 1 to n do
write(c);
end;
begin
readln(n);
WriteNSymbols(n, '-');
end.
Когда сравниваемые величины образуют в сумме 100%, тогда удобнее применять круговую диаграмму. Ведь круг в сумме и показыает 100%, а уже потом мы его делим (как одно целое) на соответствующие части.
var a,s:real;
b:integer;
begin
s:=0;
for b:=1 to 5 do begin
writeln('Введите оценку:');
read(a);
s:=s+a;
end;
s:=s/5;
writeln('Средний балл:',s);
end.
Writeln:=.........write:=............