Ученик написал реферат по заданию учителя. При этом он разместил текст на 25 страницах и сделал приложение в котором использовал две картинки с разрешением 300x250 при цветной палитре 16 цветов. При написании реферата использовался русский язык. На странице размещается 32 строки и и 72 символа в одной строке. Найти информационный объем который занимает данный реферат?
//PascalABC.Net 3.0, сборка 1064
var
s:string;
i,k:integer;
begin
Write('Введите натуральное число: '); Readln(s);
k:=0;
for i:=1 to Length(s) do
if s[i]='0' then Inc(k);
Writeln('Количество нулей в записи числа равно ',k)
end.
Пример:
Введите натуральное число: 13054000230
Количество нулей в записи числа равно 5
2. Современное решение
//PascalABC.Net 3.0, сборка 1064
begin
var s:=ReadString('Введите натуральное число: ');
Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count)
end.
Пример:
Введите натуральное число: 13054000230
Количество нулей в записи числа равно 5