//PascalABC.NET v3.3 1633
begin
var num:=ReadInteger('Введите число: ');
var sum:=0;
for var i:=1 to IntToStr(num).Length do
if IntToStr(num)[i] = '0' then sum += 1;
writeln('Количество нулей: '+sum);
end.
1) Обозначим количество символов за х.
В кодировке Unicode на каждый символ приходится 16 бит, в кодировке КОИ-8 8 бит. Так как количество символов при перекодировке не меняется, составим уравнение:
16х-480=8х
8х=480
х=480/8=60 символов
Ответ: 60 символов
2)Алфавит состоит из 2 букв ( точка и тире)
С помощью такого алфавита можно составить различных слов из 5 букв: 2^5= 32, из 6 букв: 2^6= 64
Итого 32+64= 96
Ответ: 96 символов
Var
a:real;
begin
write('Write amount in cm: '); readln(a);
writeln('In meters: ',a/100:0:4);
writeln('In kilometers: ',a/10000:0:4);
readln
end.