220*0.3=66. 220*0.4=88. 220*0.5=110. 220*0.9=198
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
При переводе десятичных дробей, чтобы перевести из десятичной системы счисления нужно:
1) последовательно умножать данную дробь на основание системы счисления, в которую переводим, до тех пор, пока дробная часть не будет равна нулю, или не будет достигнута требуемая точность вычислений. При этом необходимо выделять целые части получаемых произведений;
2) полученные целые части произведений, являются цифрами числа в новой системе счисления (при необходимости их надо привести в соответствие с алфавитом этой системы счисления);
3) составить дробную часть в новой системе счисления начиная с целой части первого произведения.
0,625 в десятич. :
0,625*2=<em><u>1</u></em>,25
0,25*2=<em><u>0</u></em>,5
0,5*2=<em><u>1</u></em>
<em><u>Итого: 0,101</u></em>
Для того чтобы перевести в десятичную нужно применять обычные правила за исключением того, что числа после запятой возводяться в отрицательную степень:
0.101 в двоичной = 0, 1*2^-1 + 1*2^-3=0, 625
3,875 (10)=11.111 (2)
1. функция позволяет выводить цветной текст
2. i и s = целые числа
3. старт программы
4. очистка экрана от всех символов (если есть)
5. s=0
6. цикл, от 2 до 100, начать
7. если число делится на 2 без остатка, то s=s+1 (s постоянно увеличивается на 1, если число кратно 2) // после 98 проверок, цикл заканчивается
8. вывод суммы четных чисел (s)
9. конец