function isLucky(a: integer): boolean; var s: string; begin str(a, s); while length(s) < 6 do s := '0' + s; isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6]) end; var sTicket: string; iTicket, i, err, sum: longint; begin write('Введите Ваш номер билета: '); read(sTicket); val(sTicket, iTicket, err); for i := 1 to iTicket do if isLucky(i) then inc(sum); writeln('Выдано ', sum, ' счастливых билетов'); writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов') end.
основные возможности ос windows Windows обеспечивает доступность базовых средств ОС в столь непохожих друг на друга системах, как мобильные телефоны, карманные устройства, переносные компьютеры и серверы масштаба предприятия. Возможности ОС можно охарактеризовать, рассмотрев наиболее важные ресурсы, которыми управляют современные операционные системы.• Память. ОС управляет сплошным, или плоским (flat), виртуальным адресным пространством большого объема, перемещая данные между физической памятью и диском или иным накопительным устройством прозрачным для пользователя образом.• Файловые системы. ОС управляет пространством именованных файлов, предоставляя возможности прямого и последовательного доступа к файлам, а также средства управления файлами и каталогами. Используемые в большинстве систем пространства имен являются иерархическими.• Именование и расположение ресурсов. Файлы могут иметь длинные, описательные имена, причем принятая схема именования распространяется также на такие объекты, как устройства, а также объекты синхронизации или межпроцессного взаимодействия. Размещение именованных объектов и управление доступом к ним также являются прерогативой ОС.• Многозадачность. ОС должна располагать средствами управления процессами, потоками и другими единицами независимо выполняться в асинхронном режиме. Задачи могут планироваться и вытесняться в соответствии с динамически определяемыми приоритетами.• Взаимодействие и синхронизация. ОС управляет обменом информацией между задачами и их синхронизацией в изолированных системах, а также взаимодействием сетевых систем между собой и сетью Internet.• Безопасность и защита. ОС должна предоставлять гибкие механизмы защиты ресурсов от несанкционированного или непреднамеренного доступа и нанесения ущерба системе.Microsoft Windows Win 32/Win64 API обеспечивает поддержку не только этих, но и множества других средств ОС, и делает их доступными в ряде версий Windows, некоторые из которых постепенно выходит из употребления, а некоторые поддерживает лишь то или иное подмножество полного API.
Классификация операционных систем в зависимости от алгоритма управления процессором, операционные системы делятся на:Однозадачные и многозадачные Однопользовательские и многопользовательские Однопроцессорные и многопроцессорные системы Локальные и сетевые.По числу одновременно выполняемых задач операционные системы делятся на два класса:Однозадачные (MS DOS)Многозадачные (OS/2, Unix, Windows)В зависимости от областей использования многозадачные ОС подразделяются на три типа:Системы пакетной обработки (ОС ЕС) Системы с разделением времени (Unix, Linux, Windows) Системы реального времени (RT11)
Uses crt; var f:text; i,x,sm,n:integer; pr:longint; begin randomize; clrscr; pr:=1; assign(f,'f.txt'); rewrite(f); writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n); for i:=1 to n do begin write(i,') '); readln(x); writeln(f,x); end; close(f); reset(f); while not Eof(f) do begin read(f,x); sm:=sm+x; if x <> 0 then pr:=pr*x; end; if n <> 0then begin writeln; writeln('Сумма всех чисел = ',sm); writeln('Произведение всех чисел = ',pr); end else writeln('Файл пустой.'); readkey; close(f);end.
var s: string;
begin
str(a, s);
while length(s) < 6 do s := '0' + s;
isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
end;
var
sTicket: string;
iTicket, i, err, sum: longint;
begin
write('Введите Ваш номер билета: ');
read(sTicket);
val(sTicket, iTicket, err);
for i := 1 to iTicket do
if isLucky(i) then inc(sum);
writeln('Выдано ', sum, ' счастливых билетов');
writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')
end.