Достоинства txt:
-простота
- экономичность
- это открытый стандарт
Недостатки txt:
- при обмене данными между компьютерами различных платформ возможны конфликты кодировок
- не поддерживаются стили текста и графика
Достоинства DOC:
- сохраняет всю информацию о форматах и стилях текста
- с большой вероятностью может быть прочитан на компьютере получателя
Недостатки DOC:
- занимает больше места на диске, чем простые текстовые файлы
- может не читаться на компьютере получателя
Системное по- необходимоя часть по, без которой компьютер не может работать. (входит: опепационная система, драйверы, утилиты)
прикладное по- состоит из программ, с помощью которых пользователь решает информационные задачи ( входит: офисные приложения базы данных сетевые приложения обучающие программы энциклопедии игры программы переводчик)
системное программирования- предназначенны для создания всех видов программ. Инструмент для работы программистов.
Program Pr10;
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
22/2 = 11, остаток 0
11/2 = 5, остаток 1
5/2=2, остаток 1
2/2=1, остаток 0
1/2=0, остаток 1
Теперь выписываем остатки в обратном порядке: 10110.
22₁₀ = 10110₂
Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
