' VBScript
a=InputBox("Введите первое число")
b=InputBox("Введите второе число")
MsgBox a*b,0,"Произведение введенных чисел"
256=2^8
8-бит
4*640*350*8=7168000 бит = 875 килобайт
что бы биты перевести в килобайты нужно биты разделить на 8192 ( 2^13)
var
a, b, c, k : integer;
begin
read (a, b, c, k);
if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln ('Никаких')
else begin
if a mod k = 0 then writeln ('Числа a');
if b mod k = 0 then writeln ('Числа b');
if c mod k = 0 then writeln ('Числа c');
end;
end.
30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1
Var
x: real;
begin
x := 0;
while x <= 6.283 do
begin
writeln('F(',x:0:1,') = ',sin(x)/x:0:2);
x := x + 0.31415;
end;
end.