При 256 символьном алфавите, каждый символ кодируется одним Байтом.
40*9*512*2=368640Байт. Делим на 1024 =360 кБайт.
компьютер
мощный, умный
подсказывает, вычисляет ,виснет
Это очень хороший помощник
изобретение
Var n,f,i: integer;
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Пример:
<span>n = 6
6! = 720</span>
var x,F: real;
i: integer; //вводим переменную-счетчик для цикла for
begin
for i:=1 to 3 do // Цикл будет выполнен 3-1+1=3 раза
begin //начало цикла
Write('введите значение x= ');
readln(x);
if x>3 then F:=-3*x+9 else F:=sqr(x)*x/(sqr(x)+8);
Writeln('F(',x:5:3,')= ', F:5:3);
end; //конец цикла
end.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.