Необходимо сочинение: мой любимый предмет-информатика! текст должен быть полноценным, интересным. укажите преимущества информатики, ее актуальность в современном мире.

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

1program proga; var st,st2: string; i: integer; begin writeln('введите число'); readln(st); for i: =1 to length(st) do begin st2: =st[i]; write(st2,' '); end; end. 2 program proga2; var st,st2: string; i,a: integer; begin writeln('введите возраст'); readln(a); if a> 120 then writeln('неверные данные'); if a=1 then writeln(a,' год'); if (a> 1) and (a< 5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 < > 0 or 11 )) then writeln(a,' год'); if (a> =5) and (a mod 10 < > 2 or 3 or 4)and (a div 10 < > 10) then writeln(a,' лет'); if (a< =5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a> 104) and (a< 110)then writeln(a,' лет'); end.

Program z1; var a: array[1..100] of integer;         i,n,k,mi,miu: integer; begin         assign(input,'in.txt');         reset(input);         readln(n);         for i: =1 to n do begin                 read(a[i]);         end;         close(input);         mi: =a[1]; miu: =1;         for i: =1 to n do begin                 if a[i]< mi then begin                         mi: =a[i]; miu: =i                 end;         end;         i: =miu;         while i< n do begin                 a[i]: =a[i+1];                 i: =i+1         end;         assign(output,'out.txt');         rewrite(output);         for i: =1 to n-1 do begin                 write(a[i],' ')         end;         close(output) end.