Короче вот, если надо вводить переменную "с"
<u>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses NumLibABC;
begin
var (num,denom):=ReadInteger2('Числитель и знаменатель 1-й дроби:');
var f1:=Frc(num,denom);
(num,denom):=ReadInteger2('Числитель и знаменатель 2-й дроби:');
var f2:=Frc(num,denom);
f1.Print; Write('* '); f2.Print; Write('= '); (f1*f2).Print
end.
<em>Примеры</em>
Числитель и знаменатель 1-й дроби: 4 9
Числитель и знаменатель 2-й дроби: 3 8
4/9 * 3/8 = 1/6
Числитель и знаменатель 1-й дроби: 32432424 10213133
Числитель и знаменатель 2-й дроби: 23123 12313123
32432424/10213133 * 23123/12313123 = 749934940152/125755562844359
Числитель и знаменатель 1-й дроби: 15 2
Числитель и знаменатель 2-й дроби: 8 15
15/2 * 8/15 = 4
Сканера и фотоаппарата нет, поэтому вот схема:
_____ _____
общ мин______/ _____| |______| |__________(х)______ на общий минус
| | | |
общ мин_____/ ______| | | |
|____ | | |
общ мин_____/ ________________ | |
| _____|
общие минусы соединены вместе и подключены к - источника питания,
(Х) - это лампочка
первый прямоугольник слева - это элемент ИЛИ
второй прямоугольник слева - это элемент И
При одновременном замыкании на минус двух или более разных входов лампочка загорится
Площадь изображения 10*10=100 см2, обозначение dpi разшифровывается как dot per inch - точек на дюйм, дюйм у нас 2,5 см, а квадратный д.йм соответственно 2,5*2,5=6,25 см2
т.о. наше изображение содержит 100/6,25=16 дюйм2
в каждом кв.дюйме ц нас 1200*1200=1440000 точек, а т.к. а все изображение соответственно будет приобразовано в 1200*1200*16 = 23040000 точек
каждая точка кодируется 24 битами или 3 байтами, т.е. полный объем изображения будет 69120000 байт или 67500 килобайт или 65,91796875 Мега байт
Длина кода должна быть любая а вот с длиной не так длина должна совпасть с кодами при этом надо учесть силы цифр