Выдает ошибку в строке:
<span>new(i); i^=3;
</span>Если изменить как 1 и вторую строку, то бишь на <span>new(i); i^:=3;
То выдаёт ответ - <u>3</u>.</span>
Ответ:
Делаю токо на Паскаль
Объяснение:
program zz;
uses crt;
var
h,x,y,p:real;
sut:Integer;
begin
p:=0;
WriteLn('Введите высоту дерева H');
Readln(h);
WriteLn('Введите высоту на которую улитка поднимаетса за 12 часов X');
Readln(x);
WriteLn('Введите высоту на какую улитка спадает вниз Y');
Readln(y);
while p<h do
begin
sut:=sut+1;
p:=p+x;
if p<h then
p:=p-y;
end;
WriteLn('За ',sut,' суток');
readln;
end.
4 Кб = 4*1024 = 4096 байт
4096/40 = 102,4 байт в секунду скорость
12*102,4 = 1,2 Кб
ОТвет: 1,2 Кб
1 символ=8 бит=1 байт
1*60*48*235=676800 байт =661 кбайт=0,646 мбайт
получается, что хватит и одной дискеты, чтобы перенести этот документ
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.