Сканируется цветное изображение размером 5 x 7.5 см2. Разрешающая сканера – 360 x 600 dpi, глубина цвета – 2 байта. Какой информационный объем будет иметь полученный графический файл? ответ дайте в Кбайтах. с пояснением
var l,a,b:integer; s: string; begin write('Введите строку: '); readln(s); l:=length(s); writeln('L=',l); if l>6 then begin a:=pos('(',s); b:=pos(')',s); if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1)); if (a=0) and (b>0) then writeln('Скобка не открыта'); if (a>0) and (b=0) then writeln('Скобка не закрыта'); if (a=0) and (b=0) then writeln('Текста в скобках нет'); end; end.
var n,i,k:integer; s,t: string; begin write('Введите строку: '); readln(s); t:=s; repeat i:=pos(' ',t); delete(t,1,i); until i=0; k:=length(t); for i:=1 to k do if t[i]='k' then n:=n+1; writeln('Кол-во букв k: ',n); end.
В первом файле фрагмент экрана, показывающий работу программы. Во втором - рабочая книга MS Excel. Небольшая процедура на VBA, текст которой приведен ниже, выполняет всю необходимую работу.Для того, чтобы работать с данной реализацией, надо в Экселе разрешить работу с макросами и разрешить доверять проектам без цифровой подписи (это стандартное условие для выполнения средств автоматизации в MS Office).
Option Explicit
Private Sub CommandButton1_Click() Dim i As Integer, s As Double Dim x As Double, n As Integer x = Cells(2, 1).Value n = Cells(2, 2).Value s = 0 For i = 1 To n s = s + 1 / (Sin(n * x) + Cos(n * x)) Next i Cells(3, 2).Value = s End Sub
l,a,b:integer;
s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
end.
var
n,i,k:integer;
s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.