// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
DIM x(20) AS INTEGER
RESTORE
FOR i = 1 TO 20
READ x(i)
NEXT
s = 0
FOR i = 1 TO 20
IF x(i) > 0 THEN
s = s + x(i)
END IF
NEXT
PRINT "s="; s
END
DATA -3,9,-8,6,6,5,0,-7,9,18
DATA 4,-7,9,7,5,-9,-6,6,3,8
к переменной "c" прибавить один это сокращение от c=c+1
В кодировке Unicode символ занимает 2 байта, в слове "информатика" 11 букв
11*2=22 байта