1) программа пропускает если ввести пароль basic иначе так и продолжает его спрагивать
2) запрашивает число, выводит его квадрат и куб через табуляцию, выводит его куб и квадрат прям без пробелов одним числом
выводит его куб и квадрат с текстовыми пояснениями
3) 5 линий слева направа нисходящие
4) 3 точки и 3 линии, одна вертикальная одна слева направа восходящая и из последней ее точки в в лево линия
5) построится подобие координатной плоскости и синусоида но точками и для угла от -10 до 10 радиан с шагом 0.01
V=K*T*Vк*i, К=1280*1024, Vк=60 кадров/сек, i=10 (1024=2^10)
V=16384Мбайта=16384*1024*1024*8 бит
Т=(16384*1024*1024*8 )/(1280*1024*60*10)=<span><span>174,763 cек</span></span>
Var n,i:integer;
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.<span>
</span>
Пусть x - количество зеленых кубиков.
Вероятность достать зеленый кубик = x/36
<span>Тогда log(2) 36/x = 3, 36/x = 2^3, x = 4,5
Получается 4,5 кубика, так что ошибка в условии.</span>