procedure VoTeRaz(f:text;n:integer;s:string); begin writeln('Было:'); assign(f,'Input.txt'); reset(f); while not(Eof(f)) do begin read(f,n); write(n,' '); if n>7 then n:=n*(n div 7); s:=s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'Input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('Стало:'); write(s); writeln; end;
function VoTeDva(f:text;n:integer;s:string):integer; begin writeln('Было:'); assign(f,'Input.txt'); reset(f); while not(Eof(f)) do begin read(f,n); write(n,' '); if n>7 then n:=n*(n div 7); s:=s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'Input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('Стало:'); write(s); writeln; VoTeDva:=0; end;
program D1;
uses GraphABC;
const c: array[1..3] of integer = (15,20,65);
n: array[1..3] of string = (' Белки ',' Жиры ',' Углеводы ');
var nu,u, i: integer;
begin
SetWindowTitle ('Сбалансированное питание');
SetFontSize(15);
TextOut(185,30,'Сбалансированное питание');
SetFontSize(10);
nu:=0;
for i:=1 to 3 do
begin
case i of
1: SetBrushColor(clred);
2: SetBrushColor(clgreen);
3: SetBrushColor(clblue)
end;
TextOut(285,385+(i*20),n[i]+IntToStr(c[i])+' % ');
u:=nu+trunc(c[i]*360/100);
Pie(320,230,150,nu,u);
nu:=u;
end;
SaveWindow ('Диаграмма питания.bmp')
end.
Объяснение:
картинка