1) var a,b,r,i:longint; begin Readln(a,b); If a> b then begin r:=a;a:=b;b:=r;end; For i:=a to b do Writeln(I); end. 2) var a,b,i:longint; begin Readln(a,b); For I:=a to b do If I mod 2<>0 then writeln(i); End. 3) var a,b,i,s,symm:longint; begin Readln(a,b); s:=0;symm:=0; For I:=a to b do begin If I mod 2<>0 then s:=s+I; If I mod 3=0 then symm:=symm+I; End; Writeln(s,symm); end. 4) var r,p,a,n,i:longint; begin readln(a,n); r:=n; If n<0 then r:=-n; p:=1; for i:=1 to r do p:=p*a; if n<0 then writeln(1/p) else writeln(p); 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 Мбайта.
