Юникод вроде бы 12 бит/симв? я не помню...
3744*8/12=3744*2/3=2496 символов
2496/39=64.
64 строки (если юникод берет 12 бит на символ)
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
Program nfff;
var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.
1. Достаточно; 2. Необходимо; 3. Достаточно.