' VBScript
a=InputBox("Введите первое число")
b=InputBox("Введите второе число")
MsgBox a*b,0,"Произведение введенных чисел"
Прости но я не смогла выполнить 4 задание.
Var
b:array[1..100001] of integer;
var a,c,i:integer;
begin
c:=0;
write('десятичное число: ');
readln(a);
while a<>0 do
begin
if a mod 2 = 0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=0;
end;
if a mod 2 <>0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=1;
end;
end;
write('двоичное число: ');
for i:=c downto 1 do
write(b[i])
end.