javascript:var массив = []; for (let сч = 0; сч < 8; сч++) массив.push(parseFloat(prompt())); var произв_1 = массив[0], произв_2 = массив[4]; for (let сч = 0; сч < 2; сч++) { произв_1 *= массив[1 + сч]; произв_2 *= массив[5 + сч]; } alert(произв_1 + " " + произв_2);
За 1 взвешивание делим 2017монет на 2 и что легче или тяжелее другово
Быстрая запись и чтение.
Намного большо кол во памяти чем на CD-R или на CD-RW
var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub