Я гражданин Российской Федерации. Это статус, который опредлеяет мои права и обязанности. Почему такой статус важен?
В мире каждый куосчек территории поделен между странами. Кажда страна представляет собой эту самую территорию, с населяющими ее людьми, а также государственную структуру, которая управляет обществом. Статус гражданина определяет к какой стране, какой структуре имеет отношение тот или иной человек. Наша страна - самая большая территориально страна в мире. Самая богатая природными ресурсами и талантливыми людьми. Быть гражданином России это большая ответственность и вызов, которому нужно соответствовать. Очень важно изучить НАСТОЯЩУЮ историю своей страны, увидеть ке были наши предки и что сделали ради того, чтобы ты мог иметь такой статус, иметь права, жить спокойно, радоваться природе и территориям, богатствам, жить в достатке, быть защищенным и спокойно работать на благо общества и своё. Очень важно, за свою жизнь постараться сделать наш общество и наш мир хоть немного, но лучше. Проявить и реализовать свой талант.
Я гражданин Российской Федерации. Это статус, который опредлеяет мои права и обязанности. Почему такой статус важен?
В мире каждый куосчек территории поделен между странами. Кажда страна представляет собой эту самую территорию, с населяющими ее людьми, а также государственную структуру, которая управляет обществом. Статус гражданина определяет к какой стране, какой структуре имеет отношение тот или иной человек. Наша страна - самая большая территориально страна в мире. Самая богатая природными ресурсами и талантливыми людьми. Быть гражданином России это большая ответственность и вызов, которому нужно соответствовать. Очень важно изучить НАСТОЯЩУЮ историю своей страны, увидеть ке были наши предки и что сделали ради того, чтобы ты мог иметь такой статус, иметь права, жить спокойно, радоваться природе и территориям, богатствам, жить в достатке, быть защищенным и спокойно работать на благо общества и своё. Очень важно, за свою жизнь постараться сделать наш общество и наш мир хоть немного, но лучше. Проявить и реализовать свой талант.
program progressbar_Console;
uses crt,sysutils;
const lBar=10;
bar100=110;
var i:integer;
procedure pBar(const cp:integer);
var i,n,m:integer;s:string;s1:String;ch:char;
begin
m:=round(100/bar100*cp);
n:=round(lBar/bar100*cp);
s:='[]';
s1:=' '+IntToStr(m)+' % ';
for i:=1 to lBar do
begin
if i<n then ch:=#35 else ch:=#45;
insert(ch,s,pos(']',s));
end;
insert(s1,s,pos('[',s)+1+(lBar div 2));
gotoxy(1,1);writeln(s);
end;
begin
clrscr;
for i:=1 to bar100 do
begin
pBar(i);
delay(50);
end;
end.