Program znanija3; var i, number:integer; begin number:=0; while i <> 10 do begin Inc(number); if (number mod 10) = 7 then begin writeln(number); Inc(i); end; end; end.
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var lvl:=0; var s:= ''; var predE:=false; foreach var c in s do if c='E' then begin if predE then begin predE:=false; lvl+=1 end else predE:=true end else if c='B' then begin predE:=false; lvl+=1 end; Writeln(lvl,' level') end.
Результат выполнения программы 63 level
И второй вариант, "как не учат в школе":
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var s:= ''; Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level') end.
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var lvl:=0; var s:= ''; var predE:=false; foreach var c in s do if c='E' then begin if predE then begin predE:=false; lvl+=1 end else predE:=true end else if c='B' then begin predE:=false; lvl+=1 end; Writeln(lvl,' level') end.
Результат выполнения программы 63 level
И второй вариант, "как не учат в школе":
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var s:= ''; Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level') end.
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.
P.S. Inc(number) = number:= number+1