CLS
DIM a(20)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 10000 THEN GOTO b
IF INT((a(n)) / 10) = (a(n)) / 10 AND a(n) < 1000 AND a(n) > 99 AND a(n) > h THEN h = a(n)
NEXT i
PRINT h
END
Переводим а и b в шестиричную: а = <span>15014 (6), b =</span><span>20 (6).
Находим значение выражения: (a+b) + a * b - (a - b) = (15014 + 20) + 15014*20 - (15014-20) =15034 + 300280 - 14994 =300320 (6)
Переводим в тринадцатиричную: </span><span><span>a899 (13)</span></span>
Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
Screen 12
line(20,10)-(30,20),b
line(40,10)-(50,20),b
line(60,10)-(70,20),b
line(80,10)-(90,20),b
line(100,10)-(110,20),b
line(10,20)-(20,30),b
line(30,20)-(40,30),b
line(50,20)-(60,30),b
line(70,20)-(80,30),b
line(90,20)-(100,30),b
Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.