Unit jov79262;
function s2(a,b:real):real;
begin
s2:=a*b
end;
function v3(a,b,h:real):real;
begin
v3:=a*b*h
end;
end.
Var a,i,max:integer;
begin
max:=-30000;
for i:=1 to 5 do begin
readln(a);
if a>max then max:=a;
end;
writeln('Максимальное - ', max);
end.
Const N = 10;
var A: array[1..10] of integer;
i, len: integer;
s: string;
begin
write('Введите слово: ');
readln(s);
len := length(s);
for i := 1 to len do begin
A[ i ] := ord(s[i]);
writeln('Код символа ', s[ i ], ': ', A[ i ]);
end;
<span>end.</span>
Function func32725655(i As String)
Dim str() As String, j, zero_one(2) As Integer
zero_one(0) = 0: zero_one(1) = 1
str = Split(i, 0)
j = UBound(str, 1)
i = i & zero_one(j Mod 2)
func32725655 = i
End Function
Excel VBA