1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О</span></span>
Ну в папке лежат бумажки какие-то а карандаш он маленький если просунуть руку пониже то ты его найдёш
//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.
Я не знаю ми такого не проходили
*переводим большую единицу (Гб) в меньшую (Мб)*
Что бы это сделать нужно 40 Гб * 1024
Но так как мы знаем что 1024 это 2^10, то получаться что 40Гб= 40* 2^10Мб
чтобы найти кол-во дисков
Нужно объем информации разделить (40 * 2^10) на объем дика (600)
(40*2^10) \ (600) = (5*2^3*2^10) \ (75*2^3) *сокращаем 2^3* =
=(5*2^10) \ (75) *возводим 2 в 10 степень и умножаем на 5* =
=5120 \ 75 =68,2666... *округляем в большую сторону, т.к по условию задачи дано что информация должна занимать полностью диск*
ОТВЕТ : 69
**справка* степени 2*
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024