Определить с утилиты «установка и
удаление программ», сколько приложений установлено на вашем компьютере, и
вычислить, какое количество информации содержит сообщение о том, что было запущено одно из них.(у меня 30 приложений, полный размер 819 мб ) плз.

var a,t:string; b:array[1..100]of string; j,i,k,n:integer; begin writeln('vvedite predlojenie'); readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i:=1 to k do begin t:=b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='o' then n:=1; if n=1 then write (t,' '); end; end.

#include <stdio.h>   int main() {     FILE* in = fopen("input.txt", "r");     char s[100], b = 1, i = 0;     short c;     do {         c = getc(in);         if (c >= '0' && c <= '9') {             if ((b = !b) && /*             */ (c = getc(in)) == ' ' || c == '\t' || c == '\r' || c == '\n' || c == EOF) {                 while (c != '\n' && c != EOF)                     c = getc(in);                 i = 0;             }         } else if (c == '\n') {             for (b = 0; b < i; b++)                 putchar(s[b]);             putchar(c);             putchar('\n');             i = 0;             b = 1;         } else {             s[i++] = c;             b = 1;         }     } while (c != EOF);     fclose(in);