|AB CD
00 |1 1
01 |1 1
10 |1 1
11 |1 3
1+1+1+3 = 6
Ответ : 6
2 0 1 0 0
3 0 1 0 0
4 0 1 0 0
5 0 1 0 0
6 0 1 1 1
1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
<span>РАЗАРХИВИРОВАНИЕ -</span>Процедура, обратная архивированию. Восстановление сжатых файлов из архивного файла.
<span>АРХИВИРОВАНИЕ - Сжатие одного или более файлов с целью экономии памяти и размещение сжатых данных в одном архивном файле. А. выполняется специальной программой - архиватором</span>
VAR
x, y, xmin, xmax, dx : Real;
BEGIN
Writeln('Табулирование функции.');
xmin := -3; xmax := 2; dx := 0.5; x := xmin;
WHILE x<=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.