0 1 10 11 100 101 110 111 1000 1001 1010 <em>и т.д.</em>
Procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s : integer;
k : integer;
Chislo : Integer;
ChisloTmp : Integer;
begin
k:=0;
for i := 100 to 999 do
begin
s:=0;
Chislo := i;
for j := 1 to 3 do
begin
ChisloTmp := Trunc(Chislo/10);
s := s + (Chislo - ChisloTmp*10);
Chislo := ChisloTmp;
end;
if ((s and 1) = 0) then
Inc(k);
end;
Label1.Caption := 'Таких чисел будет ' + inttostr(k);
end;
ОТВЕТ:<span>Таких чисел будет 450 </span>
Const
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.
Опрератор ввода:
Read (значение следующего данного считывается с этой же строчки);
Readln (значение следующего данного считывается с новой строчки)
Опрератор вывода:
Write (выводит информацию и оставляет курсор в той же строке)
Writeln ( выводит информацию и переводит курсор на следующую строку)
Writeln (...) (выводит пустую строку