Дано шестизначное целое число n, в десятичной записи которого нет нулей. определить, сколько раз встречается в числе цифра 2. найти наибольшую четную цифру числа. если в числе нет четных цифр, то сообщить об этом.
Program ryazantsev; var k,max,a:integer; n:int64; begin max:=0; k:=0; readln(n); while n <> 0 do begin a:=n mod 10; if a=2 then k:=k+1; if (a mod 2 = 0) and (a>max) then max:=a; n:=n div 10; end; writeln('Количество двоек: ',k); if max = 0 then writeln('Четных чисел нет') else writeln('Наибольшее четное число: ', max) end.
При кодировании первым для хранения номера одного инструмента требуется log(2)180 ≈ 8 бит. Второй X=2, количество инструментов в группе = 180/2 = 90 Объем памяти для кодирования = log(2)2+log(2)90 ≈ 1+7 = 8 бит. X=3, количество инструментов в группе = 180/3 = 60 Объем памяти для кодирования = log(2)3+log(2)60 ≈ 2+6 = 8 бит. X=4, количество инструментов в группе = 180/4 = 45 Объем памяти для кодирования = log(2)4+log(2)45 ≈ 2+6 = 8 бит. X=5, количество инструментов в группе = 180/5 = 36 Объем памяти для кодирования = log(2)5+log(2)36 ≈ 3+6 = 9 бит. ответ: X=5
При кодировании первым для хранения номера одного инструмента требуется log(2)180 ≈ 8 бит. Второй X=2, количество инструментов в группе = 180/2 = 90 Объем памяти для кодирования = log(2)2+log(2)90 ≈ 1+7 = 8 бит. X=3, количество инструментов в группе = 180/3 = 60 Объем памяти для кодирования = log(2)3+log(2)60 ≈ 2+6 = 8 бит. X=4, количество инструментов в группе = 180/4 = 45 Объем памяти для кодирования = log(2)4+log(2)45 ≈ 2+6 = 8 бит. X=5, количество инструментов в группе = 180/5 = 36 Объем памяти для кодирования = log(2)5+log(2)36 ≈ 3+6 = 9 бит. ответ: X=5
var k,max,a:integer;
n:int64;
begin
max:=0; k:=0;
readln(n);
while n <> 0 do begin
a:=n mod 10;
if a=2 then k:=k+1;
if (a mod 2 = 0) and (a>max) then max:=a;
n:=n div 10;
end;
writeln('Количество двоек: ',k);
if max = 0 then writeln('Четных чисел нет')
else writeln('Наибольшее четное число: ', max)
end.