A2f16 в 10 ссрасписать пример​

Слово «информатика» образовано из двух французских слов: information (информация) и automatique (автоматика). Первоначально в научный обиход оно вошло во Франции в 60-е годы для обозначения автоматической переработки информации в широкой области научной и производственной деятельности человека. Французская энциклопедия Ларусса поэтому и определяет информатику как «совокупность дисциплин и «техник автоматической и рациональной обработке информации».

Постепенно новый термин стал распространяться все шире и шире. у нас вначале им обозначали лишь технологические операции с научно-технической информацией, документалистику, библиотечное дело, хранение и обработку материалов научных исследований. И если мы заглянем в совсем еще не старые монографии и учебники по информатике, то увидим, ч го они посвящены весьма узкому кругу вопросов.

Но лавинообразное наступление информации на современного человека, быстрый рост ее потребления, хранения, насущная необходимость в ее переработке, преобразовании - все это заставило по-иному взглянуть на суть вопроса и переосмыслить само понятие «информатика». Стало ясно, что информатика обладает необыкновенной разносторонностью проникать во все отрасли, в многообразные сферы научной и общественной жизни, в деятельность каждого человека.

Информатика получила статус новой отрасли науки и заняла особое - свое - место в ряду научных дисциплин. Теперь не вызывает сомнения, что без информатики не может обойтись ни одна область нашей жизни: материальное производство и экономика, планирование и управление, образование, медицина и здравоохранение, сфера сбыта и услуг, охрана окружающей среды и культура.

Информатика вызвана к жизни потребностями общественной практики.

1)

Program Pr1;
uses crt;
var stroka:string;
a:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
a:=length(stroka);
a:=Trunc(a/2)+1;
writeln(a);
end.

2)

Program Pr1;
uses crt;
var stroka:string;
a,i:integer;
Begin
clrscr;
writeln('Vvedite stroku');
readln(stroka);
a:=0;
for i:=1 to length(stroka) do if stroka[i]=',' then a:=a+1;
writeln(a);
end.

3)

Program Pr1;
uses crt;
var stroka:string;
a,i:integer;
c:char;
Begin
clrscr;
writeln('Vvedite stroku');
readln(stroka);
writeln('Vvedite simvol');
readln(c);
a:=0;
for i:=1 to length(stroka) do if stroka[i]=c then break
else a:=a+1;
writeln(a);
end.

4)

Program Pr1;
uses crt;
var stroka:string;
procedure word9(strokk:string);
var i:integer;
tmp:string;
begin
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
writeln(tmp,' ',length(tmp));
tmp:='';
end
else tmp:=tmp+stroka[i];
end;
Begin
clrscr;
writeln('Vvedite predlogenie');
readln(stroka);
word9(stroka);
end.

6)

Program Pr1;
uses crt;
var stroka:string;
a,i:integer;
Begin
clrscr;
a:=0;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i] in ['A'..'z'] then a:=a+1;
writeln(a);
end.

7)

Program Pr1;
uses crt;
var stroka:string;
procedure word8(strokk:string);
var i:integer;
begin
for i:=1 to length(strokk) do if strokk[i]=' ' then strokk[i]:='_';
writeln(strokk);
end;
Begin
clrscr;
readln(stroka);
word8(stroka);
end.

8)

Program Pr1;
uses crt;
var stroka,tmp:string;
i,a:integer;
Begin
clrscr;
readln(stroka);
tmp:='';
a:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
a:=a+1;
writeln(tmp,' ',a);
tmp:='';
end
else tmp:=tmp+stroka[i];
end.

9)

Program Pr1;
uses crt;
var stroka:string;
procedure word7(strokk:string);
var c:char;
i,a:integer;
begin
a:=0;
for i:=1 to length(strokk) div 2 do begin
c:=strokk[i];
strokk[i]:=strokk[length(strokk)-a];
strokk[length(strokk)-a]:=c;
a:=a+1;
end;
writeln();
for i:=1 to length(strokk) do write(strokk[i]);
end;
begin
clrscr;
readln(stroka);
word7(stroka);
end.

10)

Program Pr1;
uses crt;
var stroka,tmp:string;
i,b:integer;
begin
clrscr;
readln(stroka);
stroka[1]:='*';
for i:=1 to length(stroka) do if stroka[i]=' ' then for b:=i to length(stroka) do if stroka[b] in ['A'..'я'] then begin
stroka[b]:='*';
break;
end;

writeln(stroka);
end.

 11)

Program Pr1;
uses crt;
var stroka:string;
i,b:integer;
begin
clrscr;
readln(stroka);
b:=0;
for i:=1 to length(stroka) do if (stroka[i]='А') or (stroka[i]='а') or (stroka[i]='О') or (stroka[i]='о') then b:=b+1;
writeln(b);
end.