uses Math;
var i,n:integer;
begin
write('Введите число N: ');
readln(n);
for i:=1 to n do
write(power(2,i):0:0,' ');
readln
end.
#include <iostream>
using namespace std;
int main()
{
double L = 0;
int n = 0;
cout << "Введите длину бревна" << endl;
cin >> L;
cout << "Введите в скольких местах распилили бревно" << endl;
cin >> n;
cout << "Средняя длина получившихся кусков: " << L/(n+1) << endl;
return 0;
<span>}</span>
600 * 1024 * 8 = 4915200 бит в файле
4915200 / (60 * 8) = 10240 Гц
Вроде так)
100(C) 011(A) 01(E) 10(B) 110(D). Ответ - 3.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True