При использовании 256-символьного алфавита для записи одного символа требуется log(2)256 = 8 бит = 1 байт. Количество символов = 15*32*64 Объем текста = 15*32*64*1 байт = 30720 байт = 30720/1024 Кбайт = 30 Кбайт
Var i,x,k,s:integer;
function Sum(x:integer):integer;
var
t:string;
i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;
function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;
begin
for i:=1 to 5 do
begin
write('Введите число ',i,': ');
readln(x);
k:=Kol(x);
s:=Sum(x);
writeln('Количество цифр ',k,'; сумма цифр ',s)
end
<span>end.</span>
Вставка -> фигуры
и выбираешь необходимую
Решение задач во вложении.
Программисты которые создают вирусы более мотивированы чем те,которые создают антивирусы