Program pr; var i:integer; begin for i:=1 to 20 do if (i mod 2=1) then write(i,' '); writeln(); for i:=15 to 40 do if (i mod 2=0) then write(i,' '); end.
Для удобства вычислений переведём размер сканируемого изображения в дюймы: 20,32 × 20,32 (см) = 8 × 8 (inch).
Сначала найдём количество пикселей по горизонтали, по вертикали, затем общее количество пикселей, исходя из разрешающей сканера. Зная, что каждый пиксель кодируется 4 битами, найдём объём памяти, необходимый для хранения графической информации, что и будет являться информационным объёмом файла.
1) 600 × 8 = 4800 (px) – количество пикселей по горизонтали.
2) 1200 × 8 = 9600 (px) – количество пикселей по вертикали.
Var i,s,p,max:integer; a:array[1..10] of integer; // описание переменных begin s:=0; p:=1; max:=1; for i:=1 to 10 do // Цикл в котором находится: begin a[i]:=random(100); // генерация рандом чисел write(a[i]:5); // вывод всего массива s:=s+a[i]; // нахождение суммы p:=p*a[i]; // нахождение произведения end; for i:=1 to 10 do // цикл для нахождения максимального в массиве if a[i]>max then max:=a[i]; writeln; writeln('Summa: ',s); // Все что ниже вывод резельтатов. writeln('Proizvedenie: ',p); writeln('Maximalnoe: ',max); end.
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, ' ');
end;
end.
2/
var i:integer;begin
for i:=15 to 40 do begin
if i mod 2=0 then write(i,' ');
end;
end.