Var
shop,market:real;
begin
shop:=2500;
market:=shop*0.67;
writeln(shop-market);
end.
<span>var f,i:</span>integer;
<span><span>begin
</span></span>
f:=1;
<span>for i:=</span>1 to 6 do f:=f*i;
<span>
write(f);
end.</span>
QBasic:
DIM a AS INTEGER
INPUT "Введите длину стороны квадрата",a
PRINT "Площадь квадрата со стороной";a;":";a*a
PRINT <span>"Периметр квадрата со стороной";a;":";4*a
END
C#:
int a = int.Parse(Console.ReadLine());
Console.WriteLine("Площадь </span><span>квадрата со стороной " + a + ": " + a*a);
</span>Console.WriteLine("<span>Периметр квадрата со стороной " + a + ": " + 4*a);</span>
У тебя задание не правильно написано похоже .
Если 13 БАЙТОВ,то нужно 13•8=102 бита