Цифре со значением 15 соответствует буква F.
Голубая Даль ©
Var
A:real;
i:byte;
Begin
Write('Введите число: ');
ReadLn(A);
For i:= 1 to 9 do
WriteLn(A,'*',i,' = ',A*i);
End.
Цветов 16 = 4 бита
800х600х3 = 1440000 пикселей
1440000 х 4 = 5760000 бит
720000 байт
703,125 кбайт
Во вложении - файл с рабочей книгой MS Excel-2003. Не забудьте разрешить выполнение макросов и проекты с отсутствующей цифровой подписью.
Если все же захочется попробовать решить ребус КОТ+КОТ=ТОК, замените правую часть оператора присваивания для n1 выражением из правой части оператора присваивания для n2.
===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.