<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
</h3>
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.
2)
позиционная 111 = сто одиннадцать
непозиционная III = 3 (римская) - т.е. единичку куда ни поставь - она везде единичка, в позиционных не так
В нулевой строке 1 буква D
В первой две (нулевая удвоилась и дописали A, а не D)
Во второй 4 (дописали B), в третьей 8 (C), в четвертой 16+1=17 (дописали D в конец), дальше №5 - 34, №6 - 68, №7 - 136, №8 - 272.
Ответ. 272.
Var a,b,i:integer;
begin
readln(a,b);
for i:=a to b do writeln(i,' ',chr(i));
end.
Пример:
35 40
<span>35 #
36 $
37 %
38 &
39 '
40 (</span>
Var
a,b,r:byte;
begin
randomize;
a:=Random(9)+1;
b:=Random(9)+1;
Write(a,' x ',b,' = ');
Readln(r);
if r=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись. Верный результат ',a*b)
end.