Var i,n: integer;
begin
n:=1;
for i:=1 to n do begin
n:=n*i;
end;
writeln (n);
end.
Система – это целое, состоящее из частей, взаимосвязанных между собой.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
1 байт=8 битов
1 килобайт (Кб)=1024 байта =210 байтов
1 мегабайт (Мб)=1024 килобайта =210 килобайтов=220 байтов
1 гигабайт (Гб)=1024 мегабайта =210 мегабайтов=230 байтов
1 терабайт (Гб)=1024 гигабайта =210 гигабайтов=240 байтов
Запомните, приставка КИЛО в информатике – это не 1000, а 1024, то есть <span>210</span> .
<span>Var s:string; i:integer; </span>
<span>Begin </span>
<span>Readln(s); i:=length(s); </span>
<span>while (i>0) and (s [ i]=' ') do i:=i-1; </span>
<span>if i=0 then Writeln('слова в строке не обнаружены') </span>
<span>else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); </span>
<span>End. </span>
64это 2 в 6 степени. получается 1 символ = 6 бит. 10*32*64=20480 символов 20480*6=122880бит=15360байт=15кбайт