#include <iostream> #include <iomanip> using namespace std;
int main() { int n,k; cout<<"n = "; cin>>n; int a[n],b[n]; srand(time(NULL)); // запись в массив for (int i=0; i<n; i++) { a[i]=15-rand()%30; cout<<a[i]<<" "; } cout<<endl; // сортировка массива по убыванию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[j]>a[i]) swap(a[i],a[j]); // поиск первого отрицательного k=0; while (a[k]>=0) k++; // запись положительных по убыванию for (int i=0; i<k; i++) b[i]=a[i]; // запись отрицательных по возрастанию for (int i=k; i<n; i++) b[i]=a[n-i+k-1]; // вывод массива b for (int i=0; i<n; i++) cout<<b[i]<<" "; cout<<endl; system("pause"); return 0; }
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadAllLines('foos.txt'); var i:=a.Select(l->l.Length).ToArray.IndexMax; a[i]:='*'*a[i].Length; WriteAllLines('foos1.txt',a); ReadAllText('foos1.txt').Println end.
Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.
Пример Написать программу в паскале, определяющую самую
Алфавит - это счетное множество.
Мощностью такого множества называется количество элементов этого множества.
В настоящее время термин килобайт не однозначен. Возьмем его значение (наверняка сейчас так и есть в школьной программе)
1 килобайт = 1024 байта.
Итого:
У нас 256*2 = 512 символов, которые занимают 1024/16 = 64 байта.
Таким образом один символ занимает 64/512 = 1/8 байта или один бит. (В каждом байте ровно 8 бит).
Один бит информации это нолик или единичка. то есть имеет всего два значения.
Это и есть ответ к задаче:
Мощность алфавита: 2