2·2·2·2·2·2·2·2·2·2·2·2·2·2·2 = 32768
1. На кой такие сложности не ясно. Коды символов идут по порядку русских на сколько я помню,
2. Отладка в этом случае должна помоч. Вводи алфавит и смотри результат, должен быть сдвиг на ключ.
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT((a(n)) / 3) = ((a(n)) / 3) THEN s = s + a(n)
NEXT i
PRINT s
END
Program rezultat;
var a: integer;
begin
write('a='); readln(a)
if a>0 then write(sqr(a))
else write(sqr(a)*sqr(a))
end.
<span>sqr(a)</span> - квадрат числа