Procedure maximum(a,b:integer; var max:integer); begin if a>b then max:=a else max:=b; end; var x,y,z,q,w,max:integer; begin writeln ('Введи 5 чисел'); Readln (x,y,z,q,w); maximum(x,y,max); maximum(max,z,max); maximum(max,q,max); maximum (max,w,max); writeln (max); end.
{ Лаконично :) } begin var a: array [1..5] of Int64; var i: byte; for i := 1 to 5 do readln(a[i]); writeln('Max: ', System.Math.Max(a[1], System.Math.Max(a[2], System.Math.Max(a[3], System.Math.Max(a[4], a[5]; end.
1) 1200 * 1200 dpi означает, что в квадрате размером 1 дюйм на 1 дюйм сканируется такое количество точек 2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94) 3) 3,94* 1200 = 4728 пикселей по ширине и по высоте экрана 4) 4728 * 4728 = 22353984 точек в цветном изображении 10 на 10 см 5) 22353984 * 24 = 536495616 бит - информационный объем изображения Переведем в большие единицы измерения: 536495616 бит / 8 = 67061952 байт / 1024 = 65490,2 Кбайт / 1024 = 64 Мбайта ответ: полученный файл будет 64 Мбайта.
1) площадь изображения 35.56×35.56 = 1264.51 квадратных дюймов. количество точек в квадратном дюйме 1200×1200 = 1 440 000 точек количество точек во всем изображении 1 440 000 * 1264.51 = 182 089 440 000 глубина цвета 16 бит. 3 цвета RGB * 16 = 48бит на точку Итого 182089440000 * 48 = 8740293120000 бит 8740293120000 / 8 бит в байте / 1024 байт в КБ /1024 кб в мб / 1024 мб в гб = 865,39 Гигабайт
2) для палитры в 4 цвета небоходимо 2^n=4, n=2бита 55*55 = 3025 пикселя * 2 бита на пиксель = 6050бит
3) изображение 12,7×12,7 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 32 бита. в 1дюйме 2,54 см, 12,7см/2,54 см = 5 дюйм Изображение 5 * 5 = 25 квадратных дюймов 600*1200 = 720 000 точек на квадратный дюйм 720 000 * 25 = 18 000 000 точек на изображение
глубина цвета 32 бит. 3 цвета RGB * 32 = 96 бит на точку Итого 18 000 000 * 96 = 1 728 000 000 бит / 8 бит в байте = 216 000 000 байт
begin
if a>b then max:=a
else max:=b;
end;
var x,y,z,q,w,max:integer;
begin
writeln ('Введи 5 чисел');
Readln (x,y,z,q,w);
maximum(x,y,max);
maximum(max,z,max);
maximum(max,q,max);
maximum (max,w,max);
writeln (max);
end.