Фотографию размером 1024 × 2048 пикселей сохранили в виде несжатого файла. Для хранения информации о цвете каждого пикселя использовали 4 байта. Определите размер получившегося файла в мегабайтах.
var x, n: integer; n1: real; begin Writeln('Введите число: '); Read(x); if (x > 9) and (x < 100) then begin n := (x div 10) + (x mod 10); Writeln('Сумма цифр равна: ', n); end; if (x > 99) and (x < 1000) then begin n := (x div 100) * ((x div 10) mod 10) * (x mod 10); Writeln('Произведение цифр равно: ', n); end; if (x > 999) and (x < 10000) then begin n := x div 1000 + (x div 100) mod 10 + (x div 10) mod 10 + x mod 10; n1 := n / 4; Writeln('Среднее арифметическое равно: ', n1); end; if x > 9999 then begin Writeln('Введите 2-х, 3-х или 4-х значное число'); end; end.
Const n=10; m=5; var i,j,k:integer; A:array[1..n] of integer; B,C:array[1..m] of integer; begin writeln('Введите элкменты массива'); for i:=1 to n do readln(a[i]); j:=0; k:=0; for i:=1 to n do if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end else begin k:=k+1; C[k]:=A[i] end; writeln('Массив А'); for i:=1 to n do write(A[i],' '); writeln; writeln('Массив B'); for i:=1 to j do write(B[i],' '); writeln; writeln('Массив C'); for i:=1 to k do write(C[i],' '); writeln end.
Объем файла = 1024*2048*4 байт = 1024*2048*4/1024 Кайт = 2048*4 Кбайт = 2048*4/1024 Мбайт = 8 Мбайт