1 байт=8 битов
128 бит= 16 байт
1кбайт=8192 бита
1,5 Кбайтов=1536 байт
2048 байт= 2 Кбайта
2мбайта=2048 Кбайтов
81920 байт= 80 кбайтов
1,5 мбайтов= 15728640 байтов
Держи)
Вроде 96 штук программ. Вы на всякий случай перепроверьте.
Вот полная
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.<span>
</span>
PascalABC.NET 3.4
begin var (x,y):=ReadReal2('Координаты слона (х y):');
if not x.Between(1,8) or not y.Between(1,8) then begin
Writeln('Координата должна быть в пределах 1..8');
Exit
end;
var (x1,y1):=ReadReal2('Координаты фигуры (х y):');
if not x1.Between(1,8) or not y1.Between(1,8) then begin
Writeln('Координата должна быть в пределах 1..8');
Exit
end;
if Abs(x-x1)=Abs(y-y1) then Writeln('Можно убить')
else Writeln('Нельзя убить')
end.
//Pascal
//Функция факториала
function fact(n: integer): real;
begin
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
end;
//Main
var
a: real;
x, lim: integer;
begin
write('Введите x: '); readln(x);
lim := x; a := 0;
for x := 1 to lim do
begin
//a := a + (power(2, x) * fact(x))/(power(x, x));
a := a + ((exp(ln(2) * x)) * fact(x))/(exp(ln(X) * x));
end;
writeln('a = ', a:5:3);
readln;
end.
