Кириллица - это Юникод, а в нем каждый символ занимает два байта.
2 * 5 = 10 байт = 80 бит
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ
Какое задание? пару ответов есть
Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>