Составьте программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введенной строке s.

А$= "текст" input a$ s=0 for i=1 to len(a$) if mid$(a$,i.1)= "  =)  " then s=s+1 next i print s заместо смайла =) введешь свою букву

1. потому что, каждый файл будь это картинка, музыка, видео и текст, своим кодом и не каждая программа откроет эти файлы. и вообще компьютер без программ груда железа)) 2.  классификации  программ это  разделение  по типом(программы  для  работ  с  текстами(системы для набора, редактирования и подготовки к печати любых документов от маленькой заметки или договора на одну страничку до много томной энциклопедии и цветного иллюстрированного журнала),графические  редакторы(векторные  и  растровые),  музыкальные  и  звуковые  редакторы(midi-файл,wave-файл,mp3-файл),  базы  данных  и  электронные  таблицы(набор бланков, или электронных карточек, в которых есть постоянные элементы),  телекоммуникационные  программы(браузеры (microsoft internet explorer, netscape, opera),офисные  пакеты(весьма популярная вещь - офисные пакеты, т.е. комплекс полностью совместимых между собой программ на все случаи офисной жизни-microsoft office 2003),коммуникационные  пакеты,  игры,антивирусы,архивы, и т.д.3. при наличии монитора, акустической  аппаратуры, программы и хотя бы мыши или клавиатуры.

Var   a: array[1..10, 1..10] of integer;   i, j, n: integer;     begin   write('enter n: '); readln(n);   for i : = 1 to n do   begin     for j : = 1 to n do     begin       if i < > j then         a[i, j] : = 0       else if i < = n div 2 then         a[i, j] : = i       else         a[i, j] : = n - i + 1;       write(a[i, j], ' ');     end;     writeln();   end; end.