Ответ: 150
Объяснение:
Смотреть во вложении:
( надеюсь, подчерк понятен )
МНЕ кажется что наскальный рисунок это древнейшие информационные носители культуры.
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;
writeln('Преобразованный');
For i:=1 to n do
Begin
if A[i] mod 10 = 4 then A[i]:=A[i]-2;
write(A[i]:4);
End;
readln;
End.
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд