Var i: Integer;
begin
write('Число: ');
readLn(i);
i := i mod 10;
writeLn('Цифра квадрата = ',
sqr(i) mod 10);
<span>end. </span>
Презентации сделанные на компьютере значительно облегчают жизнь делового человека.Чаще всго люди используют их для того ,чтобы "донести" до людей определенную информацию.это происхдит потому ,что человек лучше всео воспринимает зрительную информацию ,и глядя на экран достаточно ясно понимает ,то что ему хотят объяснить.Поэтому в школах часто ученики делают свои проэкты с помощью презентаций.это легко ,быстро,надежно и качественно.раньше для того чтобы сделать проэкт школьником приходилось часами просиживать за столом ,вырезая,клея,рисую тллюстрации к проэктам,чтобы хоть как-то сделать свое выступление понятным.время изменилось.и благодаря компьютерам ,мы все это проделываем за секунды.и работа на которую уходило огромное количеств времени выплняется за час.презентаци важныне только для школьников.например, мои знакомые использут презентации для рзрроботки бизнес-плана.можно сделать вывод ,что презентации являют одним из главных компонентов нашей современной жизни
1 байт =8 бит
1 Килобайт - 1024 байта
1 Мега байт -1024 Килобайта
1 Гигабайт - 1024 Мегабайта
1 Терабайт - 1024 Гигабайта
1 Пета байт = 1024 Терабайта
1 Этабайт - 1024 Петабайта
<span> - так если мне память не изменяет
:)</span>
Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
