Если не тот язык, укажите какой нужен.
var a: integer;
f: real;
begin
write('Введите а: '); readln(a);
if(a <= 0) then f := sqr(a) + 4*a + 5
else f := 1 / (sqr(a) + 4*a + 5);
writeln('f(', a, ') = ', f);
end.
Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.
А) 5=z(3)
б) Z(a)=(b)
в) Z(5)=(8)
a = 600
b = 400
i = 8
I = a * b * i
I = 600 * 400 * 8 = 1920000 бит
Теперь i = 16
Нам нужно найти (a * b )
I = (a * b ) * i
(a * b) = | / i
(a * b ) = 1920000 / 16
( a * b ) = 120000
a = 300
b = 400
Ответ: 300x400
Вот тебе последовательность, через тире координата кузнечика после после выполнения команды:
Вправо на 7 -- 7
Влево на 5 -- 2
Вправо на 7 -- 9
Влево на 5 -- 4
Вправо на 7 -- 11
Влево на 5 -- 6