Program ZZZ;
var z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
while z>0 do
begin
z:=z div 10;
s:=s+1;
end;
writeln (s,'-значное число');
<span>end.
2 и 3 задачи в одной
program ZZZ;
var i,z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
write ('делители введенного числа: ');
for i:=1 to 65000 do
begin
if z mod i =0 then
begin write (i,', ');s:=s+1; end;
end;
writeln;
if s=2 then writeln ('введенное число - простое') ;
<span>end.
</span></span>
Пароль, число, шифр, номер, количество чего-либо.
1 символ = 1 байт значит
Мира = 4 байтам
- = 1 байт
Мир = 3 байта
Итого 4+1+3 = 8 байтов