Выбираем опцию Диаграммы, затем График.
В результате экономического развития в пореформенный период
(особенно промышленного подъема 90-х годов XIX в. , завершился к
1880-1890 гг. ) окончательно сложилась система российского капитализма.
Это выражалось в росте предпринимательства и капиталов,
совершенствовании производства, его технологическом перевооружении,
увеличении количества наемной рабочей силы во всех сферах народного
хозяйства. Одновременно с другими капиталистическими странами в России
происходила вторая техническая революция (ускорение производства средств
производства, широкое использование электричества и других достижений
современной науки) , совпавшая с индустриализацией. Из отсталой аграрной
страны Россия к началу XX в. стала аграрно-индустриальной державой (82 %
занято в сельском хозяйстве) . По объему промышленной продукции она
вошла в пятерку крупнейших государств (Англия, Франция, США и Германия) и
все глубже втягивалась в мировую систему хозяйства.
Var a,b,c:real;
begin;
writeln('First procent');
readln(a);
writeln('2-st procent'); //London is capital of Great Britan, desu
readln(b);
writeln('First value');
readln(c);
c:=c/100*(100+a);
c:=c/100*(100+b);
writeln('Final value:',c);
<span>end.</span>
//Pascal ABC.NET 3.2 сборка 1318
Var
f:text;
n:integer;
s:string;
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;
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.
Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6
Стало:
891 5 6
Было:
891 5 6
Стало:
113157 5 6