Выведит 6.
1) 10 - 2 = 8.
2) 8 -2 = 6.
3) 6 - 2 = 4.
uses
GraphABC;
var
a: array of point := (new point(600, 400), new point(100, 0), new point(70, 300));
begin
SetBrushColor(clYellow);
FillRect(0, 0, WindowWidth, WindowHeight);
SetBrushHatch(HatchStyle.Percent05);
SetBrushStyle(BrushStyleType.bsHatch);
SetPenColor(clGreen);
SetPenWidth(3);
SetBrushColor(clRed);
FillPolygon(a);
DrawPolygon(a);
end.
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.
</span>Это реализовано с помощью цикла while:<span>
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
</span>Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.</span>
Сначала немного про значки:
- Λ означает "и" (по-умному - "конъюнкция")
- V означает "или" (по-умному - "дизъюнкция")
- ¬ означает "не" ("отрицание")
Теперь к таблице:
"D и F" будет истиной только когда обе переменных - истина;
"D или F" будет истиной, если истиной является хотя бы одна из переменных;
"не D" - значение просто меняется наоборот
2 байта
64х64=4096
8КБ=8х1024=8192Б
8192:4096=2
