1. вычислить сумму первых n слагаемых 12+22-32+42+52-62+…(каждое третье слагаемое берется со знаком «минус»). 1. из n целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений.
begin readln(n); c := 12; for b := 2 to n do if (b mod 2 = 0) then c := c + (b * 10 + 2) else c := c - (b * 10 + 2); writeln(c); end.
2) var max, min, n, i, t: integer;
begin readln(n); if (n = 0) then exit; readln(t); min := 65536; max := -65536; for i := 2 to n do begin readln(t); if ((t > 0) and (t < min)) then min := t; if ((t < 0) and (t > max)) then max := t; end;
Для удобства вычислений переведём размер сканируемого изображения в дюймы: 20,32 × 20,32 (см) = 8 × 8 (inch).
Сначала найдём количество пикселей по горизонтали, по вертикали, затем общее количество пикселей, исходя из разрешающей сканера. Зная, что каждый пиксель кодируется 4 битами, найдём объём памяти, необходимый для хранения графической информации, что и будет являться информационным объёмом файла.
1) 600 × 8 = 4800 (px) – количество пикселей по горизонтали.
2) 1200 × 8 = 9600 (px) – количество пикселей по вертикали.
дешифровки: Const sh = '_.,'; Var St : String; i : Integer; Function DeCode(S : String; Tabl : String; k : Integer) : String; Var j,n : Integer; Begin For j:=1 to Length(S) do Begin n:=Pos(S[j],sh); If n>0 then Begin n:=n+k; While n>Length(sh) do n:=n-Length(sh); While n<=0 do n:=n+Length(sh); S[j]:=sh[n]; end end; DeCode:=S; end; Begin St:='ЗЫФЙГФШРЦ . ШД'; Writeln(Decode(St,sh,-6)); //For i:=-10 to 10 do Writeln(Decode(St,sh,i)); end.
var
b, c, n: integer;
begin
readln(n);
c := 12;
for b := 2 to n do
if (b mod 2 = 0) then
c := c + (b * 10 + 2)
else
c := c - (b * 10 + 2);
writeln(c);
end.
2)
var
max, min, n, i, t: integer;
begin
readln(n);
if (n = 0) then exit;
readln(t);
min := 65536;
max := -65536;
for i := 2 to n do
begin
readln(t);
if ((t > 0) and (t < min)) then
min := t;
if ((t < 0) and (t > max)) then
max := t;
end;
writeln(max, ' ', min);
end.