Можно покрасить 1)все серебряные 2)все зелёные 3)1 и 2 серебряные, а 3 и 4 зелёные 4)1 и 2 зелёные, а 3 и 4 серебряные 5)1 и 3 серебряные, а 2 и 4 зелёные 6)1 и 3 зелёные, а 2 и 4 серебряные 7)1 и 4 серебряные, а 2 и 3 зелёные 8)1 и 4 зелёные, а 2 и 3 серебряные 9)1 серебряный, а 2,3 и 4 зелёные 10)1 зелёный, а 2,3 и 4 серебряные 11)2 серебряный, а 1,3 и 4 зелёные 12)2 зелёный, а 1,3 и 4 серебряные 13)3 серебряный, а 1,2 и 4 зелёные 14)3 зелёный, а 1,2 и 4 серебряные 15)4 серебряный, а 1,2 и 3 зелёные 16)4 зелёный, а 1,2 и 3 серебряные
pascal
Объяснение:
program photo;
var
a, b: integer;
begin
WriteLn('Введите размер фотографии в см: ');
Write('длина: '); ReadLn(a);
Write('ширина: '); ReadLn(b);
WriteLn('Размер отсканированного изображения разрешением 600 пиксел/дюйм');
WriteLn('при 24-битном кодировании будет равен:');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24:12:2, ' бит');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8:12:2, ' байт');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8 / 1024:12:2, ' Кбайт');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8 / 1024 / 1024:12:2, ' Мбайт');
end.